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PREFACE 

The  work  reported  herein  was  conducted  by  the  Arnold  Engineering  Development 
Center  (AEDC),  Air  Force  Systems  Command  (AFSC),  under  Program  Element  65807F. 
The  technical  monitoring  of  the  effort  was  performed  by  Capt.  Carlos  Tirres,  USAF, 
Research  and  Development  Division,  Directorate  of  Technology.  The  results  presented  were 
obtained  by  ARO,  Inc.  (a  subsidiary  of  Sverdrup  &  Parcel  and  Associates,  Inc.),  contract 
operator  of  AEDC,  AFSC,  Arnold  Air  Force  Station,  Tennessee.  The  majority  of  the 
development  and  information  presented  was  obtained  under  ARO  Project  Nos.  PW5146, 
PW5246,  PF218,  and  PF418.  The  author  of  this  report  is  Donald  C.  Todo,  ARO,  Inc.  The 
report  was  written  under  ARO  Project  No.  P33A-36A.  The  manuscript  (ARO  Control  No. 
ARO-PWT-TR-75-7,  Volume  I)  was  submitted  for  publication  on  March  3,  1975. 
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K.  R.  Kneile,  and  E.  W.  Dorrell,  Jr.,  in  early  development  in  the  computer  program  and 
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1.0  INTRODUCTION 

In  January  1971,  a  research  effort  was  undertaken  in  the  Propulsion  Wind  Tunnel 
Facility  (PWT)  at  the  Arnold  Engineering  Development  Center  (AEDC)  to  develop  a  new 
test  technique  for  testing  full-scale  inlet/engine  systems  at  high  angles  of  attack  and  yaw. 
The  steps  taken  in  developing  the  new  techniques  were:  (1)  to  determine  for  a  given 
aircraft  configuration  the  flow  field  at  the  inlet,  (2)  to  develop  flow  shaping  devices  which 
are  capable  of  producing  the  desired  flow,  and  (3)  to  verify  the  ability  of  the  device 
by  conducting  flow  survey  tests  in  the  wind  tunnel.  The  success  of  such  an  approach 
obviously  depends  on  the  ability  to  correctly  determine  the  flow  field  produced  by  the 
aircraft  and  the  flow  shaping  devices.  To  correctly  determine  these  flow  fields  required 
either  experimental  data  from  wind  tunnel  tests  or  predictions  made  by  analytical 
procedures.  Wind  tunnel  testing  was  considered  to  be  both  too  costly  and  time  consuming 
because  a  large  number  of  models  would  need  to  be  fabricated  and  tested  before  the 
correct  flow  simulations  were  obtained.  Therefore,  it  was  determined  that  an  analytical 
method  of  predicting  the  flow  fields  for  both  the  aircraft  and  the  flow  shaping  devices 
was  needed. 

At  that  time,  a  three-dimensional  potential  flow  program  which  used  a  vortex-lattice 
to  describe  the  model  was  in  use  at  AEDC  for  flow  field  calculations.  A  compressibility 
correction  using  Goethert's  Rule  had  been  incorporated  into  the  program  for  use  at  high 
subsonic  Mach  numbers.  However,  this  program  was  fixed  to  use  only  99  horseshoe  vortices 
which  restricted  its  use  to  very  simple  models.  Since  models  with  considerable  detail  would 
be  required  for  the  pending  flow  field  analyses,  the  program  was  rewritten  and  expanded 
to  allow  the  flow  field  about  large  models  to  be  analyzed.  The  flow  field  calculations 
made  with  this  program  gave  excellent  agreement  with  wind  tunnel  data  which  ultimately 
resulted  in  the  development  of  the  testing  technique  desired.  However,  the  program  proved 
to  be  extremely  slow.  Whereas  the  solution  for  a  model  with  99  vortices  could  be  obtained 
in  approximately  30  min,  the  solution  for  a  model  with  570  vortices  (the  largest  tried 
with  this  version  of  the  program)  took  approximately  20  hr.  This  was  considerably  less 
time  than  required  for  fabrication  and  testing  of  a  model;  however,  the  time  factor 
obviously  restricted  the  use  of  the  program.  Therefore,  a  complete  rewrite  of  the  potential 
flow  solution  was  undertaken  which  resulted  in  the  present  Potential  Flow  Program  (PFP). 
With  this  program,  the  solution  for  a  model  with  1579  vortices  was  obtained  in  16  hr 
on  the  old  AEDC  IBM-370- 155  which  should  reduce  to  approximately  4  hr  on  the  present 
AEDC  IBM-370-165. 

This  volume  presents  the  method  of  solution,  describes  the  input  and  output,  and 

* 

provides  other  information  necessary  to  run  PFP.  Also  documented  is  a  plot  program 
which  will  plot  various  views  of  the  model  and  flow  field  parameters.  A  sample  run  is 
given,  including  a  complete  listing  of  the  run  deck,  the  printed  output,  and  plots. 
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2.0  METHOD 

If  flow  is  irrotational,  then  the  velocity  field  is  derivable  from  a  potential.  In  particular, 
if  the  fluid  is  incompressible,  then  the  potential  satisfies  Laplace's  equation.  The  method 
used  by  PFP  is  to  induce  the  flow  by  N  singularities  which  are  known  to  produce  velocities 
which  are  derivable  from  a  potential  which  satisfies  Laplace's  equation.  Boundary 
conditions  are  imposed  at  N  distinct  points,  called  control  points.  This  produces  a  linear 
set  of  N  algebraic  equations  in  N  unknowns,  which  are  the  strengths  of  the  singularities. 
When  the  strengths  have  been  computed,  the  velocities  anywhere  in  the  field  can  be 
computed.  The  method  is  extended  to  compressible  flow  by  using  Goethert's 
compressibility  correction. 

The  method  used  by  PFP  is  outlined  above  and  detailed  in  the  following  sections. 
The  modeling  data,  i.e.,  the  shape  and  locations  of  the  singularities  and  the  locations 
of  the  control  points,  are  input  to  PFP.  How  to  best  model  a  particular  flow  problem 
has  been  learned  by  experience  and  is  covered  in  Volume  II. 

2.1  SINGULARITIES 

Helmholz's  theorem  states,  if  the  divergence  and  vorticity  of  a  vector  field  is  known 
everywhere  in  space,  then  the  field  is  completely  specified.  Thus,  one  can  picture  flow 
as  being  induced  by  its  divergence  and  vorticity.  To  simplify  manners,  if  one  discretizes 
the  divergence,  the  mathematical  ideal,  the  point  source  is  derived.  Similarly,  if  vorticity 
is  confined  to  lines,  the  mathematical  concept  of  a  line  vortex  is  formed.  These  are  the 
singularities  used  by  PFP  and  are  illustrated  in  Fig.  1. 


Type  2:  Vortex  Loop  with 
Four  Sides 


Type  3:  Vortex  Shoe  with 
Three  Sides 


Figure  1.  Types  of  singularities  used  by  PFP. 
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Type  1  singularity  is  an  isotropic  point  source  or,  in  the  case  of  negative  strength, 
a  point  sink.  The  velocity  induced  by  a  point  source  is  given  by  the  equation  in  Fig. 
2  where  7  is  the  strength  of  the  source  and  f  is  a  unit  vector  in  the  direction  of  r. 

Since  by  a  vector  identity,  the 

divergence  of  the  vorticity  is  zero,  it  can  be 
proved  that  a  line  vortex  must  either  be  a 
loop  or  else  must  come  from  infinity  and 
return  to  infinity.  For  ease  of  reference,  the 
term  "shoe"  was  coined  to  refer  to  the  latter 
case.  As  shown  in  Fig.  1 ,  PFP  restricts  a  line 
vortex  to  either  a  quadrilateral  or  a 
three-sided  shoe.  The  trails  of  Type  3 
singularities  are  all  parallel,  the  direction 
being  input  to  PFP.  In  Fig.  1,  the  numbers  beside  the  vortices  of  Types  2  and  3  indicate 
the  order  they  are  input  to  PFP. 

The  velocities  induced  by  Types  2  and  3  singularities  are  formed  by  adding  the 
velocities  induced  by  the  sides  and  trails.  The  velocity  induced  by  a  vortex  line  segment 
is  given  by  the  equation  in  Fig.  3.  The  vortex  is  between  Points  1  and  2,  and  the  velocity 
is  at  Point  3.  The  unit  vectors  ^  and  y  are  in  the  plane  of  the  3  points.  The  angles 
(01  and  62)  are  defined  by  the  figure,  the  strength  of  the  vortex  is  7,  and  y  is  the  distance 
between  Point  3  and  the  line  determined  by  Points  1  and  2.  The  velocity  induced  by 
a  vortex  ray  or  trail  is  found  as  a  limiting  case  as  one  of  the  angles  (0i  or  62)  approaches 
zero. 


Figure  2.  Velocity  induced  by  an 
isotropic  point  source. 


(cosei  +  cosfl{^  It 


Figure  3.  Velocity  induced  by  a  vortex  line  tegment. 
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2.2  SYSTEM  OF  EQUATIONS 

The  velocity  at  any  point  is  ^ven  by 

N 

V  -  V„  +  2:  7j  Uj  (1) 

j=I 

In  particular,  the  velocity  at  the  i^l*  control  point  is  given  by 

N 

Vi  =  v„  +  L  7j  Uij 
j=i 

The  boundary  condition  at  the  i‘**  control  point  is  that  the  flow  must  be  perpendicular 

A 

to  the  unit  normal  vector  (bj)  and  thus  the  dot  product 

^  ^  =  7  *  Si  +  2)  7j  •  uij  •  bj  =  0 

j=i 

Rearranging,  one  obtains  the  system  of  linear  algebraic  equations  satisfying  the  B.C.'s  at 
the  control  points: 

N 

£  (uij  •  bi)7j  =  -7  •  bi,  i  =1,  2,  .  .  .  ,  N 
j=i 

which  can  be  solved  for  the  strengths  (7j).  Once  the  strengths  are  known,  the  velocity 
can  be  computed  at  any  point  by  Eq.  (1). 

2.3  GOETHERT'S  RULE 

Thus  far  the  analysis  applies  only  to  incompressible  flow.  With  certain  approximations, 
compressibility  can  be  accounted  for  by  a  transformation  called  Goethert's  Rule^.  The 
transformation  is  from  the  physical  plane  to  a  stretched  plane  in  which  the  transformed 
velocity  potential  satisfies  Laplace's  equation,  and  thus,  in  which  the  method  of  solution 
used  in  the  PFP  is  valid. 

The  transformation  is  made  properly  by  PFP  independent  of  the  direction  of 
however,  for  convenience,  assume  that  the  free  stream  is  in  the  x-direction.  First,  define 

13  =  Mj 

tSee  Shapiro,  Ascher  R.  The  Dynamics  and  Thermodynamics  of  Compressible  Fluid  Flow.  The 
Ronald  Press  Co.,  New  York,  1953.  Starting  on  page  394  of  Vol.  1. 
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then  the  transformation  from  the  physical  plane  to  the  stretched  plane  is  given  by 

X  =  x/0 

y  =  y 

z  =  z 

V  =  V 

ae  BO 

Velocities  are  computed  in  the  stretched  plane;  then  the  velocities  in  the  physical  plane 
are  given  by 

u  =  (u  -  vJ/j32  +  v^ 

V  =  v//3 
w  =  w//J 

For  the  limits  of  applicability  of  Goethert's  Rule,  see  the  reference  cited  in  the  footnote, 

3.0  POTENTIAL  FLOW  PROGRAM 

This  section  provides  the  concise,  but  detailed,  information  needed  for  the  operation 
of  PFP. 

3.1  DATA  SETS  FOR  PFP 

Data  sets  used  by  PFP  are  listed  below: 

Data  Set  Description 

Card  input  data 
Printed  data 
Model  input  data 
Velocity  input  data 
Velocity  output  data 
System  of  equations 

Used  in  the  process  of  solution  of  the  system 
of  equations;  enough  space  should  be  allocated 
to  Data  Sets  91  and  92  to  record  the  system  of 
equations 
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3.2  CARD  INPUT  DATA  FOR  PFP 

Four  cards  are  read  by  PFP  as  follows: 


Card 

Variables 

Format 

1 

LABEL 

(18A4) 

2 

AX,  AY,  AZ,  PROX 

(4E10.0) 

3 

FX.  FY,  FZ,  FS,  EM,  CAY 

(6E10.0) 

4 

LX,  LY,  LZ,  NW 

(415) 

variables  are  as 

follows: 

Variable 

Definition 

LABEL 

Title  of  the  shot 

AX) 

Angles  in  degrees  the  trails  of 

ayV 

Type  3  singularities  make  with 

Azj 

the  three  axes 

PROX 

Proximity  of  a  singularity  or  part  thereof 

in  which  its  effect  is  set  equal  to  zero 

FX  J 

Angles  in  degrees  the  free  stream 

FY  > 

makes  with  the  three  axes 

FZ  j 

FS 

Magnitude  of  the  free-stream  velocity 

EM 

Free-stream  Mach  number 

CAY  Ratio  of  spedHc  heats  (Set  to  1.4  if 

left  blank) 

LX  )  Indicates  symmetry  with  respect  to 

LY  /  respective  planes  (see  below) 

LZ  ^  0  -  no  symmetry 

1  -  symmetry 

NW  Left  blank  if  the  model  input  data  are  to  be 

printed  or  if  the  number  of  singularities 
is  not  known;  otherwise,  it  is  the  number 
of  singularities 

Symmetry  can  be  specified  with  respect  to  any  combination  of  the  three  zero  planes 
(x  =  0,  y  =  0,  and  z  =  0)  as  indicated  by  the  variables  (LX,  LY,  and  LZ).  If  there 
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is  symmetry  with  respect  to  one  plane,  then  onc-half  of  the  model  is  input.  If  there 
is  symmetry  with  respect  to  two  planes,  then  one-fourth  of  the  model  is  input,  and  if 
with  respect  to  three  planes,  then  one-eighth  of  the  model  is  input.  Symmetry  is  easily 
imposed  by  combining  each  input  singularity  with  all  its  reflections;  all  parts  have  the 
same  strength. 

3.3  MODEL  INPUT  DATA  FOR  PFP 

Model  data  are  input  to  PFP  by  a  data  set  which  is  created  by  a  separate  program 
as  is  explained  in  Section  5.  Each  record  of  the  data  set  supplies  data  for  one  singularity 
of  the  model  and  is  read  by  the  FORTRAN  statement 

READ  (11)  XI,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3,X4.Y4,Z4, 

CX,CY,CZ,BX,BY,BZ.L 

The  variable  (L)  indicates  the  type  of  singularity  (1,  2,  or  3)  (see  Fig.  1)  or  else  the 
last  record  of  the  data  set  by  a  value  of’  -999. 

When  L  =  1,  the  coordinates  of  the  point  source  are  given  in  XI,  Yl,  and  Zl. 

When  L  =  2  or  3,  the  variables  XI  through  Z4  are  the  coordinates  of  the  four  vertices 
of  the  loop  or  shoe  in  the  order  indicated  in  Fig.  1 . 

The  variables  CX,  CY,  and  CZ  are  the  coordinates  of  the  control  point. 

If  CX  =  1.E50,  then  the  coordinates  are  computed  by  the  FORTRAN  assignments: 

CX  =  .25*  (XI  +  X2  X3  +  X4) 

CY  =  .25*  (Yl  +  Y2  +  Y3  +  Y4) 

CZ  =  .25*  (Zl  +  Z2  +  Z3  Z4) 

The  variables  BX,  BY,  and  BZ  are  the  components  of  the  unit  normal  vector. 

If  BX  =  1.E50,  then  the  unit  normal  vector  is  computed  by  taking  the  normalized 
vector  cross  product  of  the  two  diagonals  of  the  quadrilateral  determined  by  XI  through 
Z4. 


If  BX  =  1.E51,  then  the  strength  of  the  singularity  is  specified  by  BY. 
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3.4  VELOCITY  INPUT  DATA 

Velocity  input  data  are  instructions  to  PFP  as  to  what  points  in  the  flow  field  velocities 
and  streamlines  are  to  be  computed.  As  explained  in  Section  5,  this  input  is  by  a  data 
set  which  is  created  by  a  separate  program.  Each  record  supplies  either  where  a  velocity 
is  to  be  computed  or  where  computation  of  a  streamline  is  to  begin.  A  record  is  read 
by  a  FORTRAN  statement: 

READ  (12)  X,Y,Z,DS,A1,A2,X1,X2,Y1,Y2,Z1,Z2, 

FN,D,D,D,D,D,L 


The  variable  (D)  is  not  used. 

The  Variable  (L)  indicates  whether  a  velocity  (L  =  1)  or  a  streamline  (L  =  2)  is 
to  be  computed;  or  else  a  value  of  L  =  -999  indicates  the  last  record  of  the  data  set. 

If  L  =  1 ,  then  X,  Y,  and  Z  are  the  coordinates  of  where  the  velocity  is  to  be  computed. 
The  rest  of  the  data  are  not  used. 

If  L  =  2,  then  X,  Y,  and  Z  are  where  a  streamline  is  to  begin.  The  rest  of  the 
data  provide  control  over  the  accuracy  and  length  of  the  streamline  as  follows. 

The  initial  step  size  is  given  by  DS.  The  streamline  is  computed  downstream  if  DS 
is  positive  and  upstream  if  DS  is  negative.  The  maximum  step  size  is  the  absolute  value 
of  DS. 

The  variables  (A1  and  A2)  are  angles  in  degrees.  If  the  angle  between  velocities  at 
the  beginning  and  at  the  end  of  a  step  is  less  than  Al,  then  the  step  size  is  increased. 
If  the  angle  is  greater  than  A2,  then  the  step  size  is  decreased.  If  A2  <  Al,  then  they 
are  set  at  the  default  values  of  I  deg  and  3  deg. 

The  values  of  XI  through  Z2  are  the  limits  of  a  rectangular  box.  Conputation  of 
a  streamline  terminates  if  it  extends  outside  the  box. 

Computation  of  a  streamline  terminates  when  the  number  of  steps  exceeds  FN. 

3.5  VELOCITY  OUTPUT  DATA 

Calculation  of  the  flow  field  velocity  is  the  primary  result  of  PFP;  however,  from 
the  velocities,  various  other  parameters  of  interest  can  be  computed.  These  data  are  printed 
and  ate  also  recorded  on  Unit  22  to  save  for  the  plot  program.  Each  record  is  written 
by  a  FORTRAN  statement 
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WRITE  (22)  X,Y,Z,U,V,W,VA,AM,TVJW, 
CP, D, A, A, A, A,  A, A, L 


The  variable  (A)  is  not  used. 

The  variable  (L)  is  an  indicator  as  follows.  A  value  (L  =  1)  indicates  a  velocity. 
A  value  (L  =  2)  indicates  the  start  of  a  streamline,  and  the  data  are  a  copy  of  the  streamline 
input  data.  A  value  (L  =  3)  indicates  that  the  record  is  data  for  one  point  of  the  streamline, 
and  L  =  4  indicates  the  end  of  the  streamline.  The  last  record  is  indicated  by  L  =  -999. 


When  L  =  1  or  L  =  3,  the  data  of  the  record  are  as  follows. 


Col.  No.  Variables 


Definition 


1 

2 

3 

4 

5 

6 

7 


X 

y 

z 

U 

V 

w 

VA 

(printed  as  |  v  |) 


Coordinates  of  the  point  in 
the  velocity  field 

Components  of  the  velocity 


Magnitude  of  the  velocity, 
1^1  =  y/vfi  +  v2  +  w2 


8 


9 

10 

11 

12 


AM 

(printed  as  M) 


Local  Mach  number, 

..  _  Mjltin'v.I) 

M  —  J 

Vl  +  l/2(k-l)M2  [i.(|t|/[r  I  )2] 

where  k  is  the  ratio  of  specific 
heats 


TV 

(printed  as  A(V,U)) 


Flow  angularity  in  degrees, 
tan‘1  [v/u] 


TW 

(printed  as  A(W,U)) 


Flow  angularity  in  degrees, 
tan-t  [w/u] 


CP 

D 

(printed  as  M-Ml) 


Pressure  coefficient 
Cp  =  1  -  (lv|/|v.l)2 

M  -  M 
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These  data  are  computed  and  printed  by  the  subroutine  VELOUT.  If  alternate 
parameters  are  desired  or  if  a  format  change  is  needed,  only  a  minor  modification  of 
this  subroutine  would  be  required. 

3.6  ALLOCATION  OF  MEMORY  AND  THE  GENERAL  LOGIC 

The  large  arrays  needed  during  execution  of  PFP  are  in  COMMON  as; 

COMMON/ARRAYS/L(N),  X(4,N),  Y(4,N),  Z(4,N),CX(N),  CY(N), 

CZ(N),  BX(N),  BY(N),  BZ(N).  H(N) 

where 


Variables 


Definitions 


L 

X 

Y 

Z 

CX 

CY 

CZ 

BX 

BY 

BZ 

H 


! 

1 

N 

1 


Types  of  singularities 

Coordinates  of  the  singularities 

Four  locations  reserved  per  singularity, 

of  which  only  the  first  is  used  by  Type  1 

Coordinates  of  the  control  points 
Later  the  strengths  of  the  singularities 
are  stored  in  CX 

Components  of  unit  normal 
vectors 

Extra  array  used  in  computation  of  the 
system  of  equations 


The  control  points  and  unit  vectors  are  used  only  in  the  computation  of  the  system 
of  equations,  and  thus,  after  the  system  has  been  computed,  the  memory  beginning  with 
CX(1),  and  including  the  remaining  memory  reserved  by  the  COMMON  block,  can  be 
used  in  the  solution  of  the  system  of  equations.  It  is  important  that  this  memory  be 
as  large  as  possible  since  the  larger  the  memory  the  quicker  the  solution  is  effected. 

The  reservation  of  memory  is  made  in  subroutine  SIZE.  To  redimension,  one  needs 
only  to  change  the  two  integer  constants  in  this  routine,  thus  the  program  is  easily 
dimensioned  to  use  whatever  memory  is  available. 

The  allocation  of  memory  is  made  in  subroutine  SCRIMP.  An  overview  of  the  logic 
can  be  obtained  by  analyzing  the  main  program  and  the  subroutine  CHAIN.  The  functions 
of  the  basic  subroutines  are  as  follows. 
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Subroutine 

Function 

MODEL 

Input  model  data 

STRETCH 

Transform  model  according  to  Goethert's  Rule 

SYSTEM 

Compute  the  system  of  equations 

LSYSEQ 

Solve  the  system  of  equations 

CHECK 

Check  the  solution 

USER 

Compute  velocities  and  streamlines  as  directed 
by  velocity  input  data 

4.0  POTENTIAL  FLOW  PLOT  PROGRAM 

It  is  practically  impossible  to  be  certain  all  singularities  are  input  correctly  by  checking 
a  tabulation  of  the  coordinates.  Similarly,  significant  trends  in  the  velocities  and  streamlines 
can  be  overlooked  if  one  just  looks  over  a  tabulation  of  the  output.  Such  difriculties 
are  readily  resolved  by  a  plot  program  Model  errors  are  usually  conspicuously  evident, 
and  the  flow  field  can  be  visualized  by  examining  various  plots. 

The  Potential  Flow  Plot  Program  was  written  for  the  CalComp,  Model  765  (hardcopy) 
or  835  (CRT)  plotter.  For  each  view,  the  program  performs  a  transformation  of  the 
three-dimensional  data  onto  a  plane,  scales  it,  and  plots  it.  Also  available  is  the  capability 
of  producing  contour  plots  of  the  flow  field. 

4.1  DATA  SETS  FOR  THE  PLOT  PROGRAM 


Data  sets  for  the  plot  program  are  listed  below: 


Data  Set 

5 

6 
11 
12 

20 


Description 

Card  input  data 
Printed  output 

Model  input  data;  same  as  for  PFP 

Velocity  input  data;  same  as  the  velocity 
output  data  of  PFP 

Work  space;  enough  space  should  be  allocated 
to  hold  both  the  model  and  the  velocity  data 


In  addition,  at  AEDC  the  program  output  is  on  tape,  PLOTTAPE,  which  drives  the 
off-line  plotter. 
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4.2  CARD  INPUT  DATA  FOR  THE  PLOT  PROGRAM 

The  plot  program  first  reads  three  input  cards  as  follows; 


Card 

Variables 

Format 

1 

LABEL 

(18A4) 

2 

AN,AT,AV,TX,TYJZ,VMAX 

(7E10.0) 

3 

LPLOTR, INCHES, LBODY.LTROL, 
LVELY,LSTRM 

(615) 

Variable 

Definition 

LABEL 

A  72-character  title  which  appears  on  all  plots 

AN 

Length  of  normal  vectors  in  model  units 

AT 

Length  of  trails  of  Type  3  singularities  in 
model  units 

AV 

Length  a  unit  velocity  vector  is  to  be  plotted 
in  model  units 

TX) 

Angles  in  degrees  the  trails  of  Type  3 

TY  V 

1 

singularities  make  with  the  three  axes 

TZ  ) 

VMAX 

Velocities  greater  than  this  value  will  not  be 
plotted 

LPLOTR 

Plotter  model 

765  -  Hard  copy 

835  -  CRT 

INCHES 

Maximum  length,  of  plots  in  inches;  has  a  default 
value  of  16  if  left  blank,  and  a  maximum  value  ( 
16  if  CRT 

LBODY 

0  -  Don't  plot  model 

1  -  Plot  model 

LTROL 

0  -  Don't  plot  control  points 

1  -  Plot  control  points 
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LVELY  0  -  Don't  plot  velocities 

1  -  Plot  velocities 

LSTRM  0  -  Don't  plot  streamlines 

1  -  Plot  streamlines 

VIEW  DATA.  The  following  data  are  read  for  each  view  to  be  plotted; 


Variables 

Format 

LV1EW,LSCALE,LP0V 

(315) 

Variables 

Description 

LVIEW 

1  -  YZ  view 

2  -  XZ  view 

3  -  XY  view 

4  -  Isometric 

5  -  Perspective 

-1  -  Contour  plot 

0  -  Plotting  completed 

LSCALE 

0  -  Compute  scale 

1  -  Read  scale 

LPOV 

Used  only  when  LVIEW  =  5 
0  -  Compute  point  of  view 

1  -  Read  point  of  view 

If  LVIEW  =  5  and  LPOV  =  1,  then  the  next 
(see  Section  4.3). 

three  cards  supply  point  of  view  data 

If  LVIEW  =  -1,  then  the  next  card  supplies 

contour  data  (see  Section  4.4). 

j 

If  LSCALE  =  1,  then  the  next  card  supplies  scale  data  and  is  as  follows: 

Variables 

Format 

X,Y,DX,DY,WX 

(5E10.0) 

17 


AEDC-TR-75-7S 


Variables 


Description 


DX  1 

dy/ 


WX 


Values  of  the  first  tic  mark  on  the 
horizontal  and  vertical  axis,  respectively. 

Difference  between  successive  one  inch 
tic  marks  on  the  horizontal  and  vertical 
axis,  respectively 

Length  in  inches  of  the  horizontal  axis; 
must  be  less  than  16  for  CRT 


When  the  above  data  have  been  read,  the  view  is  plotted  and  a  branch  is  made  back 
to  read  data  for  the  next  view.  Description  of  the  data  for  each  view  begins  at  the  paragraph 
labeled  "VIEW  DATA"  above.  This  loop  ends  when  a  value  of  LVIEW  =  0  is  read,  indicating 
that  all  requested  plots  have  been  completed. 

4.3  PERSPECTIVE  PLOTS 


The  plot  program  will  plot  perspective  views,  that  is,  views  as  are  seen  by  the  eye. 
The  transformation  is  the  projection  of  the  model  from  a  point  onto  a  plane  as  is  illustrated 
in  Fig.  4.  Note  that  the  projection  is  determined  by  the  three  points,  labeled  A,  B,  and 
C,  in  the  figure.  The  projection  plane  is  perpendicular  to  the  line  determined  by  A  and 
B  and  is  one  unit  from  A  toward  B.  The  origin  of  the  axes  is  the  projection  of  B,  and 
the  positive  y-axis  is  determined  by  the  projection  of  C. 


Figure  4.  Perspective  views. 
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One  can  think  of  the  points  A,  B,  and  C  as  determining  the  point  of  view.  The 
viewer  is  at  A,  looking  toward  B,  and  the  point  C  is  seen  vertically  above  B.  If  LPOV 
=  1,  then  the  coordinates  of  these  three  points  are  read  on  three  cards  as  follows: 


Card 

Variables 

Format 

1 

AX,AY,AZ 

(3E10.0) 

2 

BX,BY,BZ 

(3E10.0) 

3 

CX,CY,CZ 

(3E10.0) 

AA  CONTOUR  PLOTS 

In  addition  to  the  model  and  flow  field  plots,  the  plot  program  has  the  capability 
of  producing  contour  plots.  A  contour  plot  of  any  parameter  Z,  of  the  velocity  data 
set  can  be  plotted  as  a  function  of  X  and  Y  where  X  and  Y  are  the  horizontal  and 
vertical  axes,  respectively,  of  the  contour  plot  and  can  be  any  two  of  the  coordinates 
X,  y,  or  z  for  a  constant  value  of  the  third  coordinate. 

To  make  a  contour  plot,  the  velocity  data  must  be  obtained  on  a  uniform  grid  (net), 
i.e.  -  a  rectangular  array  with  constant  delta  X  and  constant  delta  Y.  The  first  record 
of  the  grid  data  is  always  the  lower,  left-hand  comer  of  the  contour  plot.  Successive 
records  supply  data  for  all  the  X-values  for  the  first  Y-value;  then  all  the  X-values  for 
the  second  Y-value  and  so  on. 

The  contour  card  input  data  are  on  one  card  as  follows: 

Variables 

LX,LY,LZ,NX,NY,NZ,NSKIP 

Variable  Description 

LX  )  Values  1,  2,  or  3  indicating  x,  y,  or  z  for 

LY  /  the  horizontal,  X-axis  and  the  vertical 

Y-axis,  respectively 

LZ  Which  parameter  of  a  velocity  data  record  (see 

Sec.  3.5)  is  to  be  plotted;  for  example,  a 
value  of  LZ  =  8  would  indicate  a  contour  plot 
of  the  Mach  number 


Format 

(715) 
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Variable 

Description 

NX  j 

The  number  of  X-values  and  Y-values,  respectively 

NY) 

NZ 

The  approximate  number  of  Z-values  to  be  plotted; 
there  is  a  default  value  of  7  if  left  blank 

NSKIP 

This  is  the  number  of  records  on  the  velocity  data 
set  before  the  first  record  of  the  grid 

5.0  SAMPLE  RUN 


It  has  been  found  that  most  models  run  on  PFP  are  so  complicated  that  a  special 
purpose  program  must  be  written  to  prepare  the  input.  The  acceptance  of  this  fact  resulted 
in  PFP  having  both  general  application  and  simple  operation.  This  was  achieved  by  inputting 
the  model  and  velocity  data  via  data  sets  created  by  a  separate  program. 

The  usual  procedure  used  at  AEDC  in  applying  PFP  is  to  run  three  step  jobs.  The 
first  step  executes  a  program  which  prepares  the  input  data  sets.  These  sets  are  passed 
to  the  second  step  which  executes  PFP.  The  output  of  PFP  and  the  model  data  are  passed 
to  the  third  step  which  executes  the  plot  program.  A  complete  listing  of  a  run  deck 
for  a  typical  job  of  this  type  is  given  in  Appendix  A.  The  printed  output  of  PFP  for 
this  sample  run  is  given  in  Appendix  B.  Plots  produced  are  given  in  Figs.  B-1  through 
B-3. 


For  models  such  as  cylinders  and  cones,  it  is  usually  not  difficult  to  write  a  program 
to  produce  the  input  to  PFP.  For  irregular  shaped  models,  the  subroutine  PART  of  Step 
1  of  the  sample  run  has  been  found  useful  for  preparing  the  input  data.  When  called, 
it  reads  card  data: 

Variables  Format 

X(J),  Y(J),  Z(J)  (3E10.0) 

where  J  =  I  for  the  first  card,  J  =  2  for  the  second  card,  and  so  on.  Reading  continues 
until  a  value  of  X  =  l.ESO  is  read.  The  subroutine  then  starts  reading  card  data  as  follows. 

Variables  Format 

Jl,  J2,  J3,  J4,  LT  (515) 
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Each  record  of  this  second  type  of  data  produces  a  record  of  model  input  data  (see  Sec. 
3.3)  with 


Variables 

Values 

XI,  Yl,  Z1 

X(J1),  Y(J1),  Z(J1) 

X2,  Y2,  Z2 

X(J2),  Y(J2),  Z(J2) 

X3,  Y3,  Z3 

X(J3),  Y(J3),  Z(J3) 

X4,  Y4,  Z4 

X(J4),  Y(J4),  Z(J4) 

CX,  CY,  CZ 

1.E50,  1.E50,  1.E50 

BX,  BY,  BZ 

1.E50,  1.E50,  1.E50 

L  LT 


This  process  continues  until  a  blank  card  is  encountered. 

In  conclusion,  it  is  noted  that  PFP  was  written  to  solve  a  specific  class  of  problems. 
Most  of  the  problems  for  which  it  is  used  at  AEDC  fall  within  this  class  and  can  be 
run  on  the  program  without  modification.  However,  there  are  endless  ways  the  program 
could  branch  to  do  various  things  and  no. attempt  was  made  to  include  all  these  as  options 
in  the  input.  Alternatively,  the  program  was  written  as  logically  and  as  modular  as  possible 
with  the  goal  that  modifications  could  be  made  with  minimal  effort.  Documentation  also 
proceeded  with  this  objective  in  mind.  This  programming  philosophy  has  resulted  in  a 
much  shorter  and  less  complicated  program.  It  is  urged  that  for  full  utility  of  the  method, 
one  become  familiar  with  the  coding  and  not  hesitate  to  make  modifications  as  the 
occasions  arise. 
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APPENDIX  A 

SAMPLE  RUN  DECK  LISTING 

Following  is  a  listing  of  the  run  deck  for  the  sample  problem  shown  in  Appendix 

B. 
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sample  run  £>ECK  listing 


PAGE 


1 


I  2  3  A  5  6  7  8 

IP  JAbbTH901  ^J4S6r9<#0l  234367890 1  23A567890 1  2J4S67890 1 2345678901234567890 1  2 JAS6  7890 


1 

2 

1 

// 

✓/ 

/✓ 

SEP0034 1 1 0 1 «  P1JA-16A ) • 05569TOOO* 

MSuLEVFLsI 8 

CLASSIC. 

5 

4 

// 

riME=5 

11 

5 

6 

// 

CXCC  FTGLNKOU 

OMENSION  X(S00)«  7C500I*  2C3001*  JllSOOl*  J2C300)*  JlCbOOIa  J4150 

A 

2 

T 

101.  LI300I 

A 

3 

8 

CALL  PART  IX.Y.21 

A 

4 

9 

CALL  PAHT  fX«V«Zl 

A 

5 

10 

CALL  PART  (X«r«ZI 

A 

6 

1 1 

CALL  PAHT  (X»Y«Z1 

A 

7 

12 

CALL  PARTS  ( X t V • Z • J 1 • J2* J 3« 34«L 1 

A 

a 

m 

call  CLOSE  111) 

A 

9 

14 

CALL  VELY  - 

A 

10 

15 

CALL  CLOSE  112) 

A 

II 

16 

WRITE  16*10) 

A 

12 

17 

STUP 

A 

13 

18 

C 

A 

14 

19 

to 

FORMAT  (SHOSTOP) 

A 

15 

20 

END 

A 

16- 

21 

Subroutine  close  id 

a 

1 

22 

3  IMF  NS  I  UN  CCia) 

8 

2 

2.1 

OATA  C/lfl40«/9L/*999/ 

8 

3 

24 

WRITE  ID  C«L 

B 

4 

25 

eno  file  1 

a 

3 

26 

REWIND  1 

0 

6 

27 

RETURN 

3 

7 

28 

END 

a 

8- 

29 

SUHRQUTINE  PART  IX*Y.Z) 

C 

1 

30 

DIMENSION  X|l)«  Y|l)«  Zl 1 ) •  016) 

c 

2 

31 

DATA  D/64I.F30/ 

c 

3 

12 

WRITE  16*90) 

c 

4 

31 

DU  ^0  jsl *100000 

C 

5 

34 

HEAD  13*30)  X( J)*V{0)«ZCJ) 

c 

6 

15 

WRITE  16*70)  J«X|J)« YC J) .ZIJ) 

c 

7 

36 

IF  1 XI J ) .EO* 1 .EGO)  GO  TO  20 

c 

a 

37 

10 

continue 

c 

9 

38 

20 

CONTINUE 

c 

10 

39 

WRITE  (6*100) 

c 

11 

40 

DO  30  jsl *100000 

c 

t2 

41 

READ  (5*60)  J1*J2*J3*J4*L 

C 

13 

42 

WHITE  I6*A0)  J*J1*J2*J3*J4*L 

c 

14 

41 

IF  IJt.EO.OI  GO  ru  40 

c 

15 

44 

WRITE  111 )  ^1 JI)*Y| J1)«Z(01)*X| J2)*VI J2)*£l J2)*X(J3)*Y| J3)*Z( J3)*X 

c 

16 

45 

tlJ41*V( J4) .Zl J4)*0*L 

c 

17 

46 

30 

CONTINUE 

c 

18 

47 

40 

CONTINUE 

c 

19 

48 

RETURN 

c 

20 

49 

C 

c 

21 

30 

30 

FUHMAT  (7E10*0) 

c 

22 

1 2 1«!>67  A40 1  2  J«S(>r8901 234S67890I  2345678901 2345678901  23*3678901 2 J«567B90l2J«56r  890 
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SI 

60 

FORMAT  114151 

c 

23 

52 

70 

FORMAT  II9«IP9E12«A|  y 

c 

24 

53 

80 

FORMAT  (9191 

c 

25 

54 

90 

FORMAT  (IKIlaTXaSHJ  X*  1 1  Xa  IHV  •  1 1  X<  1H2I 

c 

26 

55 

100 

FORMAT  I lH0.7XalHJ«7Xa2HJl(7X«2Hj2>7X*2NJ3<rx>2HJA.8X, IHLI 

c 

27 

56 

END 

c 

25- 

57 

SUBROUTINE  PARTS  1 X.T >2 1 J 1  * J2« JSa J4*LI 

D 

1 

50 

DIMENSION  XIII.  Till.  Zlll.  Jllll.  J2I1}.  J3I1I.  J4 1 1 I .  Llll.  DtSI 

D 

2 

59 

DATA  DF64I.ES0/ 

D 

3 

60 

WRITE  16.1301 

D 

4 

61 

DO  Id  J>l. 100000 

0 

5 

62 

HEAD  (S.90I  XIJI.VI JI.ZIJI 

D 

6 

63 

WRITE  (6.II0I  J.XlJl.Tf JI.ZIJI 

0 

7 

64 

IF  f XI JI.EO.l .ESOI  60  TO  20 

D 

8 

65 

10 

CONTINUE 

0 

9 

66 

20 

CONTINUE 

0 

10 

67 

N=J-1 

D 

11 

60 

WRITE  16. 1401 

0 

12 

69 

00  30  J>1. 100000 

D 

13 

70 

REAO  15.1001  JKJl.  J2IJI.J3(JI.J4(JI.Lt  Jl 

0 

14 

71 

WRITE  16.1201  J.Jll J1.J2IJ1.J3IJ1.J4IJI.LIJI 

0 

15 

72 

IF  IJICJI.EO.OI  60  TO  40 

D 

16 

73 

30 

continue 

0 

17 

74 

40 

CONTINUE 

D 

18 

75 

M-J-l 

0 

19 

76 

00  70  1-1.2 

0 

20 

77 

00  SO  J-I.M 

0 

21 

78 

50 

WRITE  llll  XlJIIJlI.riJtlJll.ZIJliJll .XIJ2I  Jll.VI  J2IJII.Z(J2IJII.X 

0 

22 

79 

1( J3IJ1I.TI J3C Jll.ZC J3I J1I.XIJ4I Jll.TI J4( Jl I.Z( J4I Jl 1 .U.L 

0 

23 

00 

IF  (I.E0.2I  GO  TO  80 

0 

24 

81 

DO  60  J-I.N 

0 

25 

82 

60 

ZIJI— Zl  Jl 

D 

26 

03 

70 

CONTINUE 

6 

27 

64 

80 

continue 

D 

28 

85 

RE  TURN 

D 

29 

86 

C 

D 

30 

87 

90 

FORMAT  (7EI0.0I 

D 

31 

88 

100 

FORMAT  (I4ISI 

D 

32 

89 

110 

FORMAT  (I9.IP9EI2.4I 

D 

33 

90 

120 

FORMAT  (9(91 

0 

34 

91 

130 

FORMAT  (IHl.TX.SHJ  X. I 1 X. IHV. 1 IX. INZI 

0 

35 

92 

140 

FORMAT  ( IHa.rX.IHJ.7X.2HJI.7X.2HJ2.7K.2HJ3.7X.2HJA.0X.IHLl 

D 

36 

93 

END 

D 

37- 

94 

suaRouriNE  vely 

E 

1 

95 

dimension  0(151 

E 

2 

96 

DATA  D/. 2. 260. .-I.. 16. .-1 0. • 1 0* .-1 0. . 1 0 ..90. .5*0. J 

E 

3 

97 

LSI 

E 

4 

98 

00  10  JX-5.T.2 

E 

5 

99 

XsJX 

E 

6 

160 

00  10  JZ>1.9 

E 

7 

1234567890 1 2345678901 2345678901 2345678901 2345678901234567890 1 2345678901234567890  . 
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101 

Zb?*4*5*(3Z-1 ) 

E 

5 

102 

DO  10  JY*1 

.7 

E 

9 

103 

V^.5«C  JV-1 

1 

E 

10 

104 

10 

WRITE  1121 

X.V.Z.OfL 

E 

11 

1  05 

L=2 

E 

12 

106 

X«6. 

£ 

13 

107 

2*3.75 

E 

14 

toa 

DO  20  JYsl 

.  J 

E 

IS 

109 

r=.5«JY 

E 

16 

110 

eo 

WRITE  Cl2) 

X< V(Z*0<L 

E 

17 

111 

RETURN 

E 

IS 

112 

c 

E 

19 

113 

END 

E 

20- 

1  14 

//On.FTl IFOOl  DO 

OSNsfrtBOOV* 

115 

//  UNlTvtfORK* 

116 

//  SPACEbCCVLvC  1 

« II.RLSE.. HOUND  1. 

117 

//  01SPs(NEMfPA$S| 

118 

//GO#Fr  12FOOI  01) 

OSNseevECl* 

119 

//'  UN1T=«0RK. 

120 

//  SPACE* CCVL» ( 1 

.  II.RLSEoROUNDI. 

121 

//  DISP-lNeM.PASSt 

122 

//COiFTOSFOOl  DO 

• 

121 

a. 

0* 

3.75 

124 

a>86 

0* 

4.17 

125 

8»88 

•  42 

4.17 

126 

6«8a 

•  42 

3.75 

127 

8.88 

•  42 

3.33 

128 

8.88 

0. 

3.33 

129 

9*78 

0* 

4.17 

130 

9.78 

•  42 

4.17 

1  31 

9.78 

•  42 

3.75 

132 

9.  78 

•  42 

3.33 

133 

9.76 

0. 

3.33 

134 

10*75 

0* 

4.17 

135 

10.75 

•  42 

4.17 

136 

10*75 

•  42 

1.  75 

137 

10*75 

•  42 

3.33 

138 

10.75 

0* 

3.33 

139 

11*65 

0. 

4.17 

140 

11*85 

•  42 

4.17 

141 

1 1  .HO 

•  42 

3.75 

142 

11*85 

.42 

3.33 

141 

11*85 

0* 

3.33 

144 

13.21 

0. 

4.17 

145 

13*21 

*42 

4.17 

146 

13*21 

•  42 

1.75 

147 

13*21 

•  42 

3.33 

148 

13*21 

0* 

3.33 

149 

1 

l.ESO 

ISO 

1 

2  3 

1  2 

12345678901234567860123456769012345678901234567890123456709012345078901834567890 
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1»1 

1 

3  4 

1  2 

15? 

1 

4  5 

1  2 

15J 

1 

5  6 

1  2 

1S4 

2 

7  8 

3  2 

155 

3 

a  9 

4  2 

156 

4 

9  10 

5  2 

1S7 

5 

10  11 

6  2 

158 

7 

12  IJ 

0  2 

159 

8 

13  14 

0  2 

160 

9 

14  15 

to  2 

161 

12 

17  18 

13  2 

162 

13 

16  19 

14  2 

163 

14 

19  20 

15  2 

164 

15 

20  21 

16  2 

165 

17 

22  23 

18  2 

166 

18 

23  24 

10  2 

167 

19 

24  25 

20  2 

168 

169 

20 

25  26 

21  2 

170 

9.78 

0* 

3.33 

1  71 

9«78 

•  42 

3.33 

172 

10*75 

•  42 

3.33 

173 

10*75 

0* 

3.33 

174 

9*98 

0* 

3.0 

175 

9*98 

*42 

3.0 

176 

10*45 

*42 

3.0 

177 

10*96 

•  42 

3.0 

178 

10*96 

0. 

3.0 

179 

10*29 

0* 

2.5 

180 

10*29 

*42 

2.5 

181 

10*77 

*42 

2.5 

182 

11*26 

•  42 

2.5 

183 

11*26 

0* 

2.5 

184 

10*6 

0* 

2.0 

185 

10*6 

•  42 

2.0 

186  ' 

11*08 

•  42 

2.0 

187 

11.57 

*42 

2.0 

tea 

11*57 

0* 

2.0 

189 

10*91 

0* 

1.5 

190 

10*91 

•  42 

1.5 

191 

11*4 

*42 

1.5 

192 

11*88 

*42 

1.5 

193 

11*68 

0* 

1.5 

194 

11*21 

0* 

1.0 

195 

11*21 

•  42 

1.0 

196 

11*71 

•  42 

1.0 

197 

12*19 

•  42 

1.0 

198 

12*19 

0 

1.0 

199 

11.53 

0 

.5 

200 

11.53  .5  .9 

1234567800 1 2345678001 2345878001234567800123486780012348*780012368678001 234867800 

AEDC-TR-75-75 


SAMMLC  NUN  DECK  LISTING 


PAGE 


ft 


to 

00 
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201 

12*03 

*5 

*5 

202 

12.ft0 

•  ft 

*5 

20J 

12*50 

0* 

•  ft 

204 

1 

*CftO 

20ft 

1 

ft 

6 

2 

2 

206 

P 

6 

7 

2 

2 

207 

? 

7 

3 

2 

2 

20H 

3 

7 

8 

3 

2 

209 

3 

8 

4 

4 

2 

210 

ft 

10 

1  1 

6 

2 

211 

6 

1  1 

12 

7 

2 

212 

7 

12 

13 

8 

2 

213 

8 

1  3 

14 

4 

2 

214 

10 

IS 

16 

11 

2 

2tft 

1  1 

16 

1  7 

12 

2 

216 

12 

1  7 

IB 

13 

2 

217 

13 

Id 

14 

14 

2 

218 

1ft 

20 

21 

16 

2 

219 

16 

?l 

22 

1  7 

2 

220 

17 

22 

23 

18 

2 

221 

18 

?3 

24 

tv 

2 

22? 

20 

29 

26 

21 

2 

223 

21 

26 

27 

22 

2 

224 

2? 

27 

28 

23 

2 

22ft 

23 

20 

29 

/  24 

2 

226 

2ft 

10 

31 

26 

2 

227 

Pts 

31 

J? 

27 

2 

22ri 

27 

32 

33 

28 

2 

?24 

20 

1  J 

34 

29 

2 

2.10 

231 

I2*ft 

0* 

-.5 

23? 

12*13 

0* 

-*5 

233 

1 1  *0  3 

0* 

0* 

2  34 

1  1  *53 

0* 

*  5 

23ft 

l?*ft 

*ft 

-•5 

236 

12*  1  J 

•  ft 

-.5 

237 

1  1  *83 

*5 

0* 

?3B 

1  l*ft3 

•  5 

•  9 

23Q 

l?.ft 

*  ft 

-.5 

240 

12*27 

•  ft 

0* 

24  1 

12*0.1 

•  ft 

•  s 

242 

13*?4 

•  ft 

-•5 

24J 

13*13 

*5 

0* 

244 

I2*ft 

•  ft 

*9 

24ft 

12*5 

0. 

*5 

246 

13*0 

*5 

•  9 

247 

13*0 

o« 

*5 

248 

13*82 

•  ft 

-•5 

244 

1  1*8? 

•  5 

0* 

250 

I3*a? 

•  5 

*5 

|2  34bb7a  /O I  2349670901 2349878401 2345678901 2345878901 234S67890l234S67999l234ftft7890 
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251 

252 

13.82 

1 

0. 

•  E50 

•  5 

253 

1 

5 

6 

2  2 

254 

2 

6 

7 

3  2 

255 

3 

7 

0 

4  2 

250 

6 

9 

10 

7  2 

25r 

7 

10 

1 1 

8  2 

250 

9 

12 

13 

10  2 

259 

10 

13 

14 

11  2 

260 

12 

10 

19 

13  2 

261 

13 

19 

20 

16  2 

262 

13 

16 

14 

13  2 

263 

14 

16 

17 

IS  2 

264 

265 

16 

20 

21 

17  2 

266 

12.5 

0. 

-•5 

267 

12.5 

•  5 

-.5 

260 

13.24 

•  5 

-.5 

269 

13.82 

•  5 

-•5 

2T0 

13.82 

0. 

-.5 

271 

12.75 

0. 

-1. 

272 

12,75 

•  5 

-1* 

273 

13.32 

•  5 

-!• 

274 

13.02 

•  5 

-!• 

275 

13.82 

0. 

-!• 

276 

13.0 

0. 

-1.55 

277 

13.0 

•  5 

-1*55 

278 

13.4 

.5 

-1.55 

279 

13.02 

•  5 

-1.55 

280 

13.02 

0« 

-1*55 

281 

13.1 

0. 

-2.25 

282 

13.1 

•  42 

-2*25 

283 

13.47 

.42 

*2.25 

284 

13.82 

•  42 

-2.25 

285 

13.82 

0* 

-2.25 

206 

13.2 

0. 

-2.95 

287 

13.2 

.42 

-2*95 

280 

13.55 

•  42 

-2.95 

209 

13.82 

•  42 

-2.95 

290 

291 

13.82 

1 

0. 

•  E50 

-2.95 

292 

1 

6 

7 

2  2 

293 

2 

7 

0 

3  2 

294 

3 

8 

9 

4  2 

295 

4 

9 

10 

5  2 

296 

6 

1  1 

12 

7  2 

297 

7 

12 

13 

0  2 

298 

8 

13 

14 

9  2 

299 

9 

14 

15 

10  2 

300 

It 

16 

17 

12  2 

I 2345678901 2345678901 2343678901 23456789012348678901 234567890 I 2348678901 234567890 
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301 

12 

1 7  18 

13 

102 

13 

18  19 

1  4 

30.1 

14 

19  20 

IS 

304 

lb 

21  22 

17 

305 

17 

22  23 

18 

306 

1  8 

23  24 

19 

307 

19 

24  25 

20 

308 

309 

12.85 

0. 

0. 

310 

13.75 

.37 

0. 

31 1 

13.75 

•  36 

•  1 

312 

13.75 

•  26 

•  26 

313 

13.75 

•  1 

•  36 

314 

13.75 

0. 

•  37 

J15 

14.27 

•  57 

0. 

316 

14.27 

•  54 

•  14 

31  7 

14.27 

•  41 

•  41 

318 

14.27 

•  14 

*54 

319 

14.27 

0. 

.57 

320 

14.85 

.  8 

0. 

321 

i4.as 

.77 

•  21 

322 

14.85 

.56 

•  56 

323 

14.85 

.21 

.77 

324 

14.85 

0. 

•  8 

325 

15.9 

•  8 

0. 

326 

15.9 

•  77 

•  21 

327 

15.9 

.56 

•  50 

32H 

18.9 

•  21 

•  77 

329 

19.9 

0. 

•  8 

330 

16.03 

.07 

0. 

331 

16.03 

.64 

•  17 

332 

16.03 

•  48 

•  48 

333 

16.03 

.  17 

•  64 

334 

16.03 

0. 

•  67 

335 

17.3 

•  67 

Om 

336 

17.3 

•  67 

•  45 

337 

17.3 

.45 

•  67 

338 

17.3 

0. 

•  67 

339 

19. 

0. 

•  67 

34  0 

18.3 

•  67 

0. 

341 

18.3 

•  67 

•  56 

342 

18.3 

•  56 

•  67 

343 

18.3 

•  2 

•  67 

344 

19.04 

•  67 

0« 

345 

19.04 

•  67 

•  67 

346 

19.04 

.33 

•  67 

347 

20.5 

.67 

0« 

348 

20.5 

.67 

•  67 

349 

20.36 

.33 

•  67 

350 

22.3 

•  67 

0* 

123486789012348678901234587890123458789012348678901 23456789012345628901 2J998?890 
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351 

22«3 

.67 

•  67 

352 

22.06 

•  33 

•  67 

353 

24.5 

•  67 

0- 

354 

24.5 

•  67 

•  67 

355 

23.9r 

•  33 

•  67 

356 

26.37 

•  J 

0. 

357 

26.37 

•  3 

.67 

358 

26.37 

0. 

•  67 

359 

28* 

0. 

0. 

360 

28. 

0. 

•  67 

36t 

18. 

0. 

•  67 

3a2 

18. 

0. 

1*92 

363 

18. 

0. 

3.7 

364 

18. 

0. 

5.77 

365 

18* 

0. 

3. 

366 

18.3 

•  2 

•  67 

367 

18*3 

•  2 

1.92 

368 

18.3 

•  2 

3.7 

369 

18.3 

•  2 

5.77 

370 

18.3 

•  2 

6.0 

371 

19.04 

•  33 

•  67 

372 

19.04 

•  33 

1  .92 

373 

19.04 

•  33 

3.7 

374 

19.04 

.33 

5.77 

375 

19.04 

•  33 

8. 

376 

20*36 

•  33 

•  67 

377 

20.3 

•  33 

1.92 

370 

20.22 

•  33 

3«7 

379 

20.17 

•  33 

5.77 

360 

20*08 

•  33 

a. 

301 

22.06 

•  33 

•  67 

382 

21.95 

•  33 

1.92 

363 

21*83 

•  33 

3.7 

384 

21  .7 

.33 

5.77 

38S 

21.54 

•  33 

6* 

366 

23.97 

•  33 

•  67 

367 

23*83 

•  33 

1  .92 

388 

23.63 

-33 

1.7 

389 

23.4 

•  33 

5.77 

390 

23.16 

•  33 

6.0 

391 

26.37 

0« 

.67 

392 

26.22 

0- 

1.92 

393 

26.04 

0* 

3.7 

394 

25.62 

0« 

5.77 

395 

396 

25.56 

1. 

0. 

E50 

6*0 

397 

1 

2  3 

1 

398 

1 

3  4 

1  1 

399 

t 

4  5 

1 

400 

1 

5  6 

t  4 

1 2345678901 2345678901 23456789012345678901 234567890123456789012345670901234567890 
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401 

2 

7 

8 

3 

2 

402 

3 

8 

9 

4 

2 

401 

4 

9 

10 

5 

2 

404 

5 

10 

1  1 

6 

2 

400 

7 

12 

13 

8 

2 

406 

H 

13 

14 

9 

2 

407 

9 

14 

15 

10 

2 

408 

10 

IS 

16 

1  1 

2 

400 

12 

17 

18 

13 

2 

410 

1 1 

18 

19 

14 

2 

411 

14 

19 

20 

15 

2 

412 

lb 

20 

21 

16 

2 

411 

1  7 

22 

21 

18 

2 

414 

in 

2J 

24 

19 

2 

415 

19 

24 

25 

20 

2 

416 

20 

25 

26 

21 

2 

417 

22 

27 

28 

23 

2 

4IH 

23 

2n 

28 

24 

2 

419 

24 

28 

29 

25 

2 

420 

2b 

29 

30 

26 

2 

421 

29 

31 

31 

30 

2 

422 

27 

32 

33 

28 

2 

42J 

28 

H 

14 

29 

2 

424 

29 

34 

35 

31 

2 

425 

J2 

36 

37 

33 

2 

426 

33 

37 

37 

34 

2 

427 

34 

37 

38 

35 

2 

428 

36 

39 

40 

37 

2 

429 

37 

40 

41 

3a 

2 

410 

19 

42 

43 

40 

2 

431 

40 

43 

44 

41 

2 

432 

42 

45 

46 

43 

2 

43i 

41 

46 

47 

44 

2 

434 

4b 

4A 

49 

46 

2 

435 

46 

49 

bO 

47 

2 

4  36 

48 

51 

52 

49 

2 

4J7 

49 

52 

52 

50 

2 

436 

53 

58 

59 

54 

2 

439 

54 

59 

60 

55 

2 

440 

55 

60 

61 

56 

2 

441 

b6 

61 

6? 

57 

2 

442 

58 

63 

64 

59 

2 

441 

50 

64 

65 

60 

2 

444 

60 

65 

66 

61 

2 

445 

61 

66 

67 

62 

2 

446 

63 

68 

69 

64 

2 

447 

64 

69 

70 

65 

2 

448 

65 

70 

71 

66 

2 

449 

66 

71 

72 

67 

2 

450 

68 

73 

74 

69 

2 
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451 

69 

7*  75  70  2 

452 

70 

75  76  71  2 

453 

71 

76  77  72  2 

454 

73 

78  79  74  2 

455 

74 

79  80  75  2 

456 

75 

80  81  76  2 

457 

76 

81  82  77  2 

458 

78 

83  84  79  2 

459 

79 

84  85  80  2 

460 

80 

85  56  81  2 

461 

81 

06  87  82  2 

462 

463 

// 

EXEC  FTHLNKGO 

37 

464 

C 

POTENTIAL  FLOH  PROGRAN  OONALO  Cm  TODD  JAN  3.  1975 

A 

2 

465 

COMMON  /alpha/  LABEL! 151 

A 

3 

466 

COMMON  /ARRAYS/  XIII 

A 

4 

467 

COMMON  /FIXED/  NM.LX.LY.LZ 

A 

5 

468 

common  /float/  PROXaAXiAV*AZ(CAV(EM>FSaFX«FY>FZ 

A 

6 

469 

COMMON  /SKIMP/  MOIM.NOIM<NEEO«LA.LB.UC.LO«LC<LF.LG«LH.LI.LJ.LK 

A 

7 

470 

READ  <5.101  LASEL 

A 

8 

471 

READ  15.301  AX. AV.AZ.PROX 

A 

9 

472 

read  15.301  fx.fy.fz.fs;em.cay 

A 

10 

473 

READ  15.201  LX.LY.LZ.NW 

A 

1 1 

474 

IF  tCAY.EO.O.I  CAY=I.4 

A 

12 

475 

IF  INM.bO.OI  CALL  PRNTN  INMI 

A 

13 

476 

CALL  INITAL 

A 

14 

477 

CALL  CHAIN  1 X (LA) .XI L8 1 . XlLC 1 .X ILOl .XlLEI .XILFI .X(LGI . XILHt .X<L I 1 . 

A 

IS 

478 

IXILJI 1 

A 

16 

479 

WRITE  (6.40) 

A 

17 

480 

STOP 

A 

18 

481 

c 

A 

19 

482 

10 

FORMAT  (iaA4l 

A 

20 

483 

20 

FORMAT  (1415) 

A 

21 

484 

30 

FORMAT  (TEIO.OI 

A 

22 

485 

40 

FORMAT  (lAMOJOa  COMPLETED) 

A 

23 

486 

END 

A 

24- 

487 

SUBROUTINE  CHAIN  ( X. Y . Z.CX.CY.CZ .BX .BV. BZ . A ) 

a 

1 

488 

DIMENSION  X(l)«  Yll).  Zll).  exit).  CYIII.  CZII),  8X11).  BYtl).  BZI 

a 

2 

489 

11).  All) 

8 

3 

490 

CALL  MODEL  IX.Y.Z.CX.CY.CZ.BX.8Y.BZ) 

8 

4 

491 

CALL  STRECH  (X.Y.Z.CX.CY.CZ.BX.BY.8ZI 

a 

S 

492 

CALL  SYSTEM  1  X.  Y.Z  .CX.CY.CZ  .BX.BY  .BZ.  A) 

8 

6 

493 

CALL  LSVSEO  ICXI 

B 

7 

494 

CALL  CHECK  CCX.CYI 

a 

8 

495 

CALL  USER  lX.Y.Z.CXI 

B 

9 

496 

RETURN 

B 

10 

497 

END 

8 

II- 

498 

FUNCTION  ATANO  IX. Y> 

C 

1 

499 

DATA  DPR/ST. 29578/ 

c 

2 

500 

IP  lX.NE.O.)  GO  TO  ID 

c 

3 
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501 

IF  (V.NE.O.l  GO  TO  10 

c 

4 

502 

ATANOsO* 

c 

5 

503 

•IE  TURN 

c 

6 

504 

10 

ATANOsOPR •*TAN2f  Xt  VI 

c 

7 

SOS 

RETURN 

c 

a 

506 

ENO 

c 

9- 

507 

SUBROUTINE  BLKIN  ( JU.Nl . NA.NNt NB.LB.LE. Al 

0 

1 

508 

DIMENSION  AINt.ll 

0 

2 

509 

MB=0 

D 

3 

510 

DO  10  JB> 1.100000 

0 

4 

51 1 

READ  (JU)  N.LB.LE.I lAIJ.NBAKI ij^l .Nil .Ks| .Ml 

0 

5 

512 

MBsMBAH 

D 

6 

513 

IF  ILB.EQ.II  GO  TO  20 

D 

7 

514 

IF  ILE.EO.tl  RETURN 

0 

a 

515 

IF  IIMBl-NMI.aT.NAI  RETURN 

D 

9 

516 

10 

CONTINUE 

D 

10 

517 

ENTRY  BLKUUTIJU.Nl .NR.M.LB.LE.AI 

D 

11 

518 

JBSNI-N2 

D 

12 

519 

WRITE  IJUI  M.LB.LE.Cf AIJB«J.K).J3I.N21.KE|.NI 

0 

13 

520 

IF  ILB.EO.OI  RETURN 

0 

14 

521 

END  pile  JU 

9 

15 

522 

20 

REWIND  JU 

D 

16 

523 

RETURN 

0 

17 

524 

END 

D 

18- 

525 

SUBROUTINE  CHECK  (X.AI 

E 

1 

526 

DIMENSION  Kill.  AINI 

E 

2 

527 

COMMON  /FIXED/  N 

E 

3 

528 

EM-0.^ 

E 

4 

529 

DO  20  J=I.N 

E 

5 

530 

READ  (901  A.C 

E 

6 

531 

SsC 

E 

7 

532 

TIASABSICI 

E 

8 

533 

DO  10  K=1.N 

E 

9 

534 

T=A(KI*X(K| 

e 

10 

53b 

TMsANAXKTN.ABSITII 

E 

11 

536 

10 

S=S-T 

E 

12 

537 

E3ABS($/TMI 

E 

13 

538 

20 

EMsAMAXI (EH.EI 

E 

14 

539 

REWIND  90 

E 

15 

540 

WRITE  (6.301  EM 

E 

16 

541 

RETURN 

E 

17 

542 

c 

E 

18 

543 

30 

FORMAT  (EYHORELATIVE  ERROR  OF  SOLUTION. tPE10.2l 

E 

19 

544 

END 

E 

20- 

545 

subroutine  CONTRL  (X.V.Z.CX.CV.CZI 

F 

1 

546 

DIMENSION  XIAI.  YlAl.  ZIAI 

F 

2 

547 

CXS. 25*1X1  1  I»X(  2I«X(31*XI*II 

F 

3 

548 

CY3.ZS*IY(  1|4’Y(2I*V(3I«’V(AI  1 

F 

4 

549 

CZo.25*(Z(  llA'ZCZI'AZiaiAZCAII 

F 

5 

550 

RE  TURN 

F 

6 
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»S1 

END 

F  7- 

SS2 

FUNCTION  COSO  1X1 

G  I 

553 

DATA  RPO/. 01745329/ 

G  2 

354 

IF  IX.EO.-I80.I  GO  TO  10 

G  3 

555 

IF  IX.EQ.-90.>  GO  TO  20 

G  4 

556 

IF  IX.EO.O.I  GO  TO  30 

G  5 

557 

IF  (X.CO*90>I  GO  TO  20 

6  6 

355 

IF  IX.EO. 180.1  GO  TO  10 

G  7 

559 

IF  IX.EO. 270.1  GO  TO  20 

C  8 

560 

IF  IX.EO. 360.1  GO  TO  30 

G  9 

561 

casD>cosiRP04X) 

G  10 

562 

RETURN 

G  1 1 

563 

10 

CUSDs-l. 

G  12 

564 

RETURN 

G  13 

565 

20 

COSD>0. 

G  14 

565 

RETURN 

G  IS 

567 

30 

COSO^I. 

C  lA 

565 

return 

G  17 

569 

END 

G  18- 

570 

SUBROUTINE  ELININ  IN.M.L2.A) 

H  1 

571 

DIMENSION  AIN. II 

H  2 

572 

M1=M4| 

N  3 

573 

ML=M»L2 

H  4 

574 

DO  10  3«NI.NL 

H  5 

575 

DO  20  K^NI.N 

H  6 

576 

S±0. 

H  7 

577 

00  10  L-I.M 

H  8 

575 

10 

S=S*AIL. JI4AIK.LI 

N  9 

579 

20 

AlK.JIaAlX. Jl-S 

H  10 

580 

30 

CONTINUE 

H  II 

581 

RETURN 

H  12 

582 

ENO 

H  13- 

583 

SUBROUTtNE  GAUSS  IN.M.P.AI 

1  1 

584 

C 

DC  TOOO  04/09/73  GAUSS  ELIMINATION 

I  2 

585 

DIMENSION  AIN. II 

I  3 

386 

MPI>N4I 

I  4 

587 

IF  IM.EO. II  CO  TO  20 

1  S 

588 

MM|aH-l 

I  8 

509 

00  10  Ksl.MMI 

1  7 

590 

psAlK.KI 

1  0 

591 

IF  IP.EO.O.I  RETURN 

I  9 

592 

0>l./P 

1  10 

593 

K1SK4I 

1  11 

594 

DO  10  J>Kt.N 

I  12 

595 

F>AIK .3140 

I  IS 

596 

DO  10  L>KI«N 

1  14 

597 

10 

A<L.JMAIL.3I-F«AIL.KI 

1  IS 

SOB 

20 

CONTINUE 

I  16 

599 

00  50  JC-I.M 

I  17 

600 

J3MPI>JC 

I  to 
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601 

1 

14 

60? 

P=AIJ. J) 

1 

20 

60.1 

DiJ  50  K-HP1<N 

1 

21 

604 

UAAIK.JI 

1 

22 

605 

ir  |j.eu.<il  CO  TO  40 

1 

23 

606 

no  30  L=JI.M 

1 

24 

607 

11 

0=0-A(L< J)*AIK.LI 

1 

25 

604 

40 

4IK. J Isb/P 

1 

26 

604 

60 

CONTINUE 

1 

27 

ulO 

Rt:  TUHN 

1 

26 

61  1 

tNO 

1 

20- 

612 

SUJXJUTINE  INIT4L 

J 

1 

6t  1 

COMXJN  /riXF02  NM(LX.LTaL2 

J 

2 

614 

COMMON  /FLOAT/  PS • Al 3  I .CA .EM.F S.F 1 1 1 .G 1 31 (HI  3 1 (EHS. BET A.88. ROS 

J 

3 

615 

COMMON  /SKIMP/  NDIM,NDIM*NCE0 

J 

4 

ot6 

DATA  TJL/I.E-5/ 

J 

5 

617 

WRITE  le.701 

J 

6 

6IB 

WKirc  (b.SOI  LX>LVtLZ 

J 

7 

614 

WrIITF.  lb. 801 

J 

6 

620 

WMITE  (D.bOl  A. PS 

J 

9 

621 

white  (8.90 1 

J 

10 

622 

WHITr  (b.dOl  F.PS.EN.CA 

J 

1 1 

621 

on  10  jEi.j 

J 

12 

»24 

AIJIsCOSiXAlJI) 

J 

13 

625 

10 

rij|3C0S0(F(ji> 

J 

14 

626 

CALL  WINU 

J 

15 

62  7 

AEs|.-(AI  ll••24A(2l••2*A(3l••^l 

J 

16 

624 

Fr=l.-(F( l)**24Ft2|4*2*FI 3I442I 

J 

17 

629 

OCA|.-ir,(  1  )**24C(  21  **2»GI  31*421 

J 

18 

610 

HL=I  .-(HI  1  l••^*’H(^l••2*H(  3>**2I 

J 

19 

631 

l>S=P5*PS 

J 

20 

ul? 

CA=.S4(CA-l.» 

J 

21 

o3J 

tMS=EM4*2 

J 

22 

634 

OETAsSJRTI 1 .-EHSI 

J 

23 

6.16 

RB«I ./OtTA 

J 

24 

6l6 

MDS3R8**2 

J 

25 

637 

CALL  SIZE  (NOINl 

J 

26 

634 

CALL  SCRIMP 

J 

27 

a39 

WRITE  I b. 1001 

J 

26 

640 

•  RITC  lb. SOI  NW.NOIN.no IN. NEED 

J 

29 

641 

WRITE  (b.llOI 

J 

30 

642 

WRITE  (b.bOl  PS.CA.ENS.BETA.RB 

J 

31 

643 

WRITE  (b.1201 

J 

32 

644 

WHITE  Ib.bOi  A.AE 

J 

33 

646 

white  lb. 1301 

J 

34 

646 

WRITE  (b.bOi  F.FE 

J 

35 

64  7 

WRITE  lo.oOl  O.GE 

J 

36 

644 

WRITE  (b.bO)  H.HE 

J 

37 

644 

LOsO 

J 

38 

660 

IF  (NDIN.GE.NFEOI  GO  TO  20 

J 

39 
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651 

■RITE  16.1401 

J 

40 

652 

L0«L04I 

J 

41 

653 

20 

IF  CASS(AEI.GT.TOL)  GO  TO  30 

J 

42 

654 

IF  CABSIFEl.GT.TOLI  GO  TO  30 

J 

43 

655 

IF  1 ABSIGEI .GT.TOLI  GO  TO  30 

J 

44 

656 

IF  IA8SIHEI. GT.TOLI  GO  TO  30 

J 

45 

657 

GO  TO  40 

J 

46 

658 

30 

■RITE  16.1501 

J 

47 

659 

LO=LD«’l 

J 

46 

660 

40 

CONTINUE 

J 

49 

661 

IF  (LD.GT.OI  STOP 

J 

50 

662 

RETURN 

J 

51 

663, 

C 

, 

J 

52 

664 

50 

FORMAT  1121101 

J 

53 

665 

60 

FORMAT  tlP8ElS.6l 

J 

54 

666 

70 

FORMAT  I  IHI  .7X.2HLXtaX<2HLV»0Xt2NL2l 

J 

55 

667 

80 

FORMAT  ( IH0.4X.2HAX. I3X. 2HAr . 1 3X .ZHAZ . 1 3X.4HPROXI 

J 

56 

668 

90 

FORMAT  1 1M0.4X.2HFX. 13X. 2HF V. 13X. 2HFZ . 1 3X.2HFS. I3X. 2HM I • 1 3X . INK  1 

J 

57 

669 

100 

FORMAT  1 IH0<TX.2HNW.eX.4HM0IM.6X*4HN0IMi5X.4NNEEDI 

J 

56 

670 

110 

FORMAT  I IH0.4X.2HPS.13X.2HCA.13X.4HN442.11X.4HBETA. 1 IX.6H1/BETAI 

J 

59 

671 

120 

FORMAT  1 IH0.4X. I2HTRAIL  VEC TOR. 33X. IHEI 

J 

60 

67Z 

130 

FORMAT  I IM0.6X.33MB00T  -  OINO  TRANSFORMATION  MATRIX. I2X. IME 1 

J 

61 

673 

140 

FORMAT  ( IOHONEEO>NOIMI 

J 

62 

674 

150 

FORMAT  l6H0E>TaLI 

J 

63 

675 

END 

J 

64- 

676 

SUBROUTINE  LSTSEO  lAI 

K 

1 

677 

C 

OONALO  C.  TODO  06/15/73 

K 

2 

678 

c 

BLOCK  GAUSS-JOROON  ELIMINATION 

K 

3 

679 

9IMEN5I0N  Alll 

K 

4 

680 

COMMON  /FIXED/  M 

K 

5 

681 

COMMON  /SKIMP/  NOIM 

K 

6 

682 

NSMAI 

K 

7 

683 

CALL  SrSIN  CM.N.NDIM.JU1.JU2.MM2.N2.AI 

K 

8 

684 

■RITE  16.601 

K 

9 

685 

■RITE  16.901 

K 

10 

686 

■RITE  15.1001  JU1.JU2.MM2.N2 

K 

II 

687 

10 

CONTINUE 

K 

12 

688 

NMI>MM2 

K 

13 

689 

NI>N2 

K 

14 

690 

JU3>JUI 

K 

15 

691 

JU1SJU2 

K 

16 

692 

JU2>JU3 

K 

17 

693 

NA=NOIN/C2«NII 

K 

18 

694 

call  BLKtN  CJUI.NI.MA.MMI.MI.LB.LEI.AI 

1C 

19 

595 

CALL  GAUSS  INI.NI-.P.A) 

K 

20 

696 

IF  IP.EO.O.I  GO  TO  40 

K 

21 

697 

N2=N1-MI 

K 

22 

698 

MN2SNI 

K 

23 

699 

J1-M16NI 

K 

24 

700 

MA*MINOIINOII»>JII/N1.NOIM/C2«M2)I 

K 

25 
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701 

JlsJI*-! 

ic 

26 

702 

20 

IF  iLa.Eo.it  aa  to  jo 

IC 

27 

703 

CALL  JLKIN  CJUI.NItMAaMMI.M2.LB<LE.AIJtll 

K 

28 

704 

CALL  ELIMIN  (NI.MI.M2.AI 

K 

29 

705 

CALL  BLKUUT  ( JU2 .Nl •N2 (MS , 0 iLE ■ A( J 1 1 1 

K 

30 

706 

MM?=MAX0<  MM2(M2 i 

< 

31 

707 

GO  TO  20 

K 

32 

708 

30 

CALL  BLKUUT  IJU2 . Nl •N2 tNl . 1 tLE 1 . A 1 

K 

33 

709 

■•HITF  I6>t00l  JUI  .  JU2.HM2.N2 

< 

34 

710 

IF  (LEI.CU.II  GO  TO  50 

K 

35 

71  1 

GU  TO  10 

K 

36 

712 

40 

MRITF  (6.701 

< 

37 

713 

STOP 

K 

38 

714 

SO 

CALL  XOUT  (JU2.N2.A) 

K 

39 

715 

XRITE  (6.S0> 

< 

60 

716 

RETURN 

K 

41 

717 

c 

K 

42 

713 

60 

FORMAT  ( 1 7HOSOLUTIOM  STARTEOI 

K 

43 

719 

70 

FORMAT  (I4HOHETHOO  FAILEOI 

< 

44 

720 

30 

FORMAT  (I4H0SVSTEM  SOLVES) 

K 

49 

721 

90 

FORMAT  (  IH0*5Xt3)(JU1.6X.3HJU2.6X.3HMN2.7l(.2HN2) 

K 

46 

722 

too 

FORMAT  (RI9) 

< 

47 

723 

ENO 

K 

48- 

724 

SUBROUTINE  MODEL  (X.V.Z.CX.CYtCZ.BX.BV.aZt 

L 

1 

725 

OtMENSIUN  XI4.I).  V(4.l).  Z(4.1).  CXIl).  CVIl).  CZ( 1 1 •  BX(I).  BV( 1 

L 

2 

726 

II.  BZdl 

L 

3 

727 

COMMON  /ARRAYS/  ITRd) 

L 

4 

72fl 

COMMON  /FIXED/  NM 

L 

9 

729 

Nt  =  0 

L 

6 

730 

00  10  K=I.NH 

L 

7 

731 

READ  (111  (X|J.K).VIJ.K).Z(J.K).J>1.4| .CX(K).CYIK).CZ(K).BX(KI.BY( 

L 

8 

732 

IKI.BZCKI.ITRIKI 

L 

9 

733 

IF  IdX(K) .EO. I.E5I 1  GO  TO  10 

L 

10 

734 

IF  (CXIKI.EO.I.ESOI  Call  CONTRL  (Xd.KI.Yd.KI.ZII.KI.CXHO.CYIX). 

L 

11 

735 

ICZIK)  > 

L 

12 

736 

IF  (BX(K).NE.I.E50)  GO  TO  10 

U 

13 

737 

CALL  NORMAL  I  Xd  .K 1  .  Yd  .  K I  .Zd  .  Kl  .BXI  Kl  .BY(  Kt  «BZ(  K  )  .LE  1 

L 

14 

738 

IF  (LE.CO.O)  GO  TO  10 

L 

IS 

739 

NE-I 

L 

16 

740 

•RITE  (6.201  K 

L 

17 

741 

10 

CONTINUE 

L 

16 

742 

REWIND  II 

L 

19 

743 

IF  (NE.NE.OI  STOP 

L 

20 

74* 

RETURN 

L 

21 

749 

c 

L 

22 

746 

20 

FORMAT  d9*12H  ZERO  NORMAL! 

L 

23 

747 

ENO 

L 

24- 

748 

SUBROUTINE  NORMAL  I X. Y.Z.CX.CY.CZ.LI 

N 

1 

749 

DIMENSION  XI4).  VI4>.  Z<4) 

N 

a 

790 

AX>XI«I-XIZI 

M 

3 

12349676901234567890123458789012345678901 234567890123496709012345670901234567690 


AEDC-TR-75-75 


so 


SAMPLE  RUN  DECK  LISTING 


PAGE  16 


751 

752 

75J 

754 

755 

756 
75r 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 
79  i 

794 

795 

796 

797 

798 

799 

800 


12345678901234867890123456789012345678901234567890123456789012345678901234567890 
AVsV(4)-vf 21 
AZ=Z(4}-Z(2) 

BXsXC  3>-Xf 1 ) 

BYsVI 31-YC I  1 

az>z(  Jl-ZUI 

CX=AV«8Z*AZ4BV 
CY=AZ«BX-AX*eZ 
CZsAX«BV-AY*BX 
FcS0RTCCX4*24CY4424-CZ442l 
IF  CF.EQ.O*!  go  ro  10 
L-0 
F»l«/F 
CXBF4CX 
CV=F*CY 
CZ=F*CZ 
KETURN 
10  L*1 

RETURN 
END 

SUBROUTINE  PAGE 
COMMON  /ALPHA/  LABEL! 181 
J^J4l 

IF  IJ.LE.N)  RETURN 
J=I 

WRITE  (6il0}  LABEL 
RETURN 


C 

10  FORMAT  IIHl»ieA4) 

END 

SUBROUTINE  POINT  < EMO« AtB.CvXvY.ZtU* V.W) 

COMMON  /FLOAT/  PS 

RXsX-A 

RYeY-B 

RZ*Z~C 

RS3RX4424RV9424RZ442 
IF  iRS.LE.PSt  GO  TO  10 
FsEMO/C 12«56637*R$*SQRTCRS>I 
U«F4RX 
V«F«HY 
«sF«RZ 
RETURN 
10  U90« 

VsO« 

W=0« 

RETURN 

END 

SUBROUTINE  PRNTN  CNl 
DIMENSION  CCI8I 
NsO 
Kao 


M 

N 

M 

N 

M 

N 

M 

N 

M 

M 

N 

H 

M 

M 

M 

N 

M 

M 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

0 

O 

o 

o 

o 

o 

O 

o 

0 

O 

o 

O 

0 

o 

O 

0 

o 

p 

p 

p 


4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 

19 

20 
21 
22- 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10- 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

16 

15 

16 
17- 

t 

2 

3 

4 
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301 

JelOOO 

P 

5 

302 

10 

READ  (111  C«L 

P 

6 

303 

IF  (L-E0*-999)  go  to  30 

P 

7 

304 

N*N4'1 

P 

8 

805 

CALL  PAGE  (2«J«50I 

P 

9 

306 

IF  <J.CT,2|  GO  TO  20 

a 

10 

607 

KSK4  1 

P 

11 

803 

4H1TE  I6.40I  K 

P 

12 

309 

20 

RMITE  |6»50l  N« (C( 1 !• 1st *61 •( Cf 1 1 •l>13a 151 

P 

13 

810 

KRITE  (6*60>  L«(C( 1 I»Ib7«12) ilCCI l*t«l6tlBI 

P 

14 

811 

GO  TO  10 

P 

15 

812 

30 

REWINU  II 

P 

16 

813 

RrruRN 

P 

IT 

814 

C 

P 

18 

815 

40 

FORMAT  (I9H  MODEL  DATA  PAGE*I4| 

P 

19 

816 

50 

FORMAT  ( 16*2X«IP3EI2.4t  t X« 3E 1 2*4 •3X« 3E 1 2.41 

P 

20 

81  7 

60 

FORMAT  ( 1 8* lP3EI2.4a 1 X. 3E 1 2 *4 «3X. 3E 1 2* 4 | 

P 

21 

818 

END 

P 

22- 

819 

SUOROUriNE  MAY  ( G« AX* A Y« AZ vEXaE Yt E2 iCX • CVaCZ « OXaDY* 02  I 

0 

1 

820 

COMMON  /FLOAT/  PS 

Q 

2 

821 

FX»CX-AX 

0 

3 

822 

FY»CY-AY 

0 

4 

823 

FZ=CZ-AZ 

Q 

5 

824 

F5=FX*FX*FY4FV4FZ*FZ 

Q 

6 

825 

IF  (FS.EOaOal  GO  TO  10 

0 

7 

826 

□XbEY*F2-E2*FV 

Q 

8 

827 

0Y=EZ*FX-CX4FZ 

0 

9 

828 

0Z=EX*FY-EY4FX 

0 

10 

329 

0S=DX«DX4DV4DY»OZ40Z 

0 

It 

830 

IF  (05«LE«PSI  go  TO  10 

Q 

12 

831 

CT|s(  EX*FX4>EY*FV«’EZ4FZ1/50RT(FS| 

0 

13 

832 

CsG4(  CTI«-I«  >/(  12a56637«USI 

0 

14 

831 

0XSC4DX 

0 

15 

834 

0V»C40V 

0 

16 

835 

0ZsC4DZ 

0 

17 

836 

RETURN 

0 

18 

837 

10 

OX=Oa 

Q 

19 

838 

DV=0« 

0 

20 

839 

OZBO. 

Q 

21 

840 

RETURN 

0 

22 

841 

END 

0 

23- 

842 

SUBROUTINE  SCRIMP 

R 

1 

843 

COMMON  /FIXED/  NO 

R 

2 

844 

COMMON  /SKIMP/  MDIMaNOIMaNEEDaLl 1 1 

R 

3 

845 

LI  1 |B|*NH 

R 

4 

846 

LA^4«NV 

R 

5 

847 

UO  10  Ks2,4 

R 

6 

848 

10 

LiK )sLf K-1 )4LA 

R 

7 

849 

DO  20  Ks5a 1 1 

R 

8 

850 

20 

L(K|BLlK-l|4N« 

R 

9 
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asi 

NDlMsNOtM-LC4l4l 

R 

to 

852 

NEEDsLCllI 

R 

1 1 

85.1 

RETURN 

R 

12 

854 

END 

R 

13- 

855 

subroutine  SEGN  CG«4X.AY«AZ*BX*BV*BZ»CX»CV«CZ»DX«0VtO2l 

S 

1 

856 

COMMON  /FLOAT/  PS 

5 

2 

857 

EXsBX-AX 

S 

3 

858 

eV=BY-AV 

5 

4 

859 

EZ«BZ-AZ 

S 

5 

860 

ESbEX*EX4-EY«EY«EZ4E2 

S 

6 

861 

IF  (ES.Ea«0«l  GO  TO  10 

s 

7 

862 

FXaCX-AX 

s 

8 

863 

FV=:CV-AY 

5 

9 

864 

FZ^CZ-AZ 

s 

to 

865 

F  S=F  X  X ♦F  Y4F  Y4F  Z  •F  Z 

s 

1 1 

866 

IF  (FS«EQ.0.I  GO  TO  10 

s 

12 

867 

DX=EV*FZ-EZ4FY 

5 

13 

068 

DVaEZ 4FX-E X4FZ 

s 

14 

869 

OZ=EX«FV-Er«FX 

s 

15 

870 

DSs0X«OX4OY«0V4OZ40Z 

5 

16 

871 

IF  {DS.LE.ES4PSI  GO  TO  10 

S 

IT 

872 

HS=CCX-BX}*«24lCV-BY|*424CCZ-8£)442 

S 

18 

873 

FsSQRTCFSl 

s 

19 

874 

HsSQRTIHSI 

s 

20 

875 

CT1»CFS-HS«ES>/F 

s 

21 

876 

CT2=CFS-HS-ES»/H 

5 

22 

877 

C=G4(CT1-Cr2>/I25« t3274«0S> 

s 

23 

878 

DXBC40X 

s 

24 

879 

0Y=C40Y 

s 

25 

880 

0Z=C40Z 

s 

26 

881 

RETURN 

s 

27 

882 

10 

DX«0* 

s 

2B 

883 

0Y=0. 

s 

29 

884 

oz=o. 

s 

30 

885 

RETURN 

5 

31 

886 

ENO 

S 

32- 

887 

SUBROUTINE  SIZE  INOINI 

T 

1 

888 

COMMON  /ARRAYS/  AC  150001 

T 

2 

889 

NOIM^tSOOO 

T 

3 

090 

RETURN 

T 

4 

891 

ENO 

T 

5- 

892 

SUBROUTINE  STRCH  CS«X.V»Z| 

U 

1 

893 

CALL  rOMINO  cx.r.zi 

u 

2 

894 

XsS*X 

u 

3 

895 

CALL  TOBODY  CXvYvZI 

u 

4 

896 

RETURN 

u 

5 

897 

END 

u 

6- 

098 

SUBROUTINE  STREAM  1 A| .AZ* A3f A4« XO* Y0« ZOvDSO tAN* AX> XN.XX* YN« YX«ZN« Z 

V 

1 

899 

tX.NX. JSTRM) 

V 

2 

900 

C 

OC  TOGO  0/11/71 

V 

3 
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901 

DIMENSION  Alin.  A2(l>.  A3I1I.  A4I1I 

V 

4 

90?. 

DIMENSION  CU0EI8I 

V 

5 

901 

DATA  Ca0E74HN>NX.4HX<XN.4HX>XX.4HV<VN.4HV>VX.4HZ<ZN.4H2>ZX.4H0<DN/ 

V 

6 

904 

J=I000 

w 

7 

905 

JPAGE=0 

V 

8 

906 

L>1 

V 

9 

9or 

OSXaABSIOSOI 

V 

10 

908 

OSN=.OOI*OSX 

V 

11 

909 

CX=COSO< ANI 

V 

12 

910 

CNaCOSDlAXl 

V 

13 

9lt 

DS=osa 

V 

14 

912 

N=0 

V 

IS 

913 

x«xo 

V 

16 

914 

y«vo 

V 

17 

915 

z=zo 

V 

10 

916 

10 

CALL  VELOCV  (AI.A2.A3.A4.X. V.Z.U.V.W) 

V 

19 

917 

CALL  PAGE  II.J.50I 

V 

20 

918 

IF  IJ.OT.tl  GO  TO  20 

V 

21 

919 

JPAGEaJPAGEAl 

V 

22 

920 

WRITE  16.1401  jstrm.jpage.an.ax.oso 

V 

23 

921 

CALL  VELLAB 

V 

24 

922 

20 

CONTINUE 

V 

25 

923 

call  VELOUT  IX.V.Z.U. V.M.3.22) 

V 

26 

924 

IF  IN.GE.NXl  GO  TO  120 

V 

27 

925 

IF  IX.LE.XNI  GO  TO  110 

V 

28 

926 

IF  lX.GE.XXI  GO  TO  100 

V 

29 

927 

IF  (V.lE.VNI  go  to  90 

V 

30 

928 

IF  (V.GE.VXl  GO  TO  00 

V 

31 

929 

IF  IZ.LE.ZMI  go  to  70 

V 

32 

930 

IF  IZ.GE.ZXI  GO  TO  60 

V 

33 

931 

TaSOR  T 1  U4U4  ¥•  ¥411  *0 1 

V 

34 

932 

30 

F=0S/T 

V 

35 

933 

X|aX4F4U 

V 

36 

934 

VI*Y4F4¥ 

9 

37 

939 

Z1>Z*F«W 

V 

38 

936 

CALL  ¥EL0CV  I A1 . A2. A3. A4. XI . VI .Z 1 .01 .¥1 .01 I 

V 

39 

937 

TlaSaRT(U14UI4¥14¥14lfl4«ll 

V 

40 

938 

Ca|U«Ul4¥4¥l4W«WI>/(T4Tl> 

V 

41 

939 

IF  IC.CE.CNI  GO  TO  40 

V 

42 

940 

DSa.75*0S 

V 

43 

941 

IF  lABSCOSl.LE.OSNI  GO  TO  50 

V 

44 

942 

GO  TO  30 

V 

45 

943 

40 

Fa.S*DS 

V 

46 

944 

XsX4F*lU/’T»U17ri  1 

V 

47 

945 

VaV4F*l  ¥/T*’¥l/Tl  1 

V 

48 

946 

ZaZA'FAIa/TFBI/rtI 

V 

49 

947 

NaN4l 

V 

50 

948 

IF  CC.GT.CXI  DSaSlGNIAMINII0SX.1.54ABSIDSII.DSI 

V 

51 

949 

GO  TO  10 

V 

52 

950 

so 

L-L41 

V 

S3 
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931 

aO 

L«L4l 

V 

54 

952 

70 

L=L+1 

V 

55 

953 

30 

L3L41 

V 

56 

954 

90 

L«L«>1 

V 

57 

955 

too 

L=L41 

Y 

50 

956 

110 

LbU4'1 

V 

59 

957 

120 

WHITE  16*1301  COOECO 

V 

60 

958 

HETURH 

V 

61 

959 

C 

V 

62 

960 

130 

V 

63 

961 

140 

FUkiMAT  tllH  STREANLINE<I4.4X.4HPA6E«I4/5H  AN  ■•F6<3.5X*4HAX  a.FO.O 

V 

64 

962 

liSX.5HOS0  =.1PE12.4I 

V 

65 

963 

END 

V 

66- 

964 

SUOROUTINE  STRECH  I  X . V.Z.CX .C7.C2.ex.8Y .82 1 

« 

1 

965 

OIHENSION  XI4.1I.  714.11.  2(4.11.  CX(  1 1  .  CYIII.  C2(ll.  OXdl.  87(1 

m 

2 

966 

II •  az(  1 1 

w 

3 

967 

COMMON  /FIXED/  NM 

M 

4 

968 

COMMON  /FLOAT/  OMl . AX . A7. A2 .0M.EN.0M2( 1 1 1 .OET A.RB 

H 

5 

969 

IF  (EM. to. 0.1  RETURN 

9 

6 

970 

DO  20  K=1*NH 

If 

7 

971 

OO  10  J=l*4 

9 

a 

972 

10 

CALL  STRCH  (RB.X( J.KI.7(J.K|.Z(J.KI) 

« 

9 

973 

IF  (ax(Kl.Ea.l.E3l 1  GO  TO  20 

H 

10 

974 

CALL  STRCH  (RB.CX( K 1 .CY( K 1 . C2(K 1 1 

« 

11 

975 

CALL  STRCH  (BETA.BX( K I .BY( K 1 .eZ(K 1 1 

M 

12 

976 

CALL  UNITYZ  (BXIKI .B7( Kl .B2(K> 1 

H 

13 

977 

20 

CONTINUE 

V 

14 

978 

CALL  STRCH  (RB.AX.AY.A2I 

M 

IS 

979 

CALL  UNITYZ  (AX.AY.AZI 

H 

16 

900 

■RITE  (6.301 

« 

17 

901 

keturn 

« 

IS 

982 

C 

■ 

19 

903 

10 

FORMAT  (ISHOBOOY  STRETCNEOI 

8 

20 

984 

END 

■ 

21- 

909 

SUBROUTINE  S7NTR7  I  PX.P7.PZ.VX. VY.VZ.G.X.Y.Z.LI 

X 

1 

906 

DIMENSION  X(I).  7(1).  2(11 

X 

2 

987 

COMMON  /FIXEO/  J0M.LX.L7.LZ 

X 

3 

988 

VXaO* 

K 

4 

909 

77*0. 

X 

5 

990 

VZ30. 

X 

6 

991 

QXsPX 

X 

7 

992 

QYaPY 

X 

8 

993 

OZsPZ 

X 

9 

994 

SX>I. 

X 

10 

995 

SY«1. 

X 

11 

996 

SZ«I. 

X 

12 

997 

00  50  JZa|.2 

K 

13 

998 

DO  30  JY>1*2 

X 

14 

999 

DO  10  JXX.Z 

X 

IS 

1000 

CALL  TYPE  (OX.OY.OZ.UX.UV.UZ.G.X.V.Z.LI 

x 

16 

12349678901234567890123496709012349678901234567890123496789012345670901234567090 


AEDC-TR-75-75 


SAMPLE  RUN  aCCK  LISTING 


PAGE  21 


I  2  3  «  S  »  7  8 

1 234S67BG0 1  234S678901 2343678901 234SA78901 2345678901 234367890 1234567890 1 234S67890 


1001 

VXSVX4SX4UX 

X 

17 

1002 

VVkVV»SV4UV 

X 

18 

1003 

VZ>VZ4S£*UZ 

X 

19 

1000 

IP  ILX.EO.Oi  CO  TO  20 

X 

20 

1005 

IXa.QX 

X 

21 

lOOO 

10 

SXP-SX 

X 

22 

1007 

20 

IP  ILV.EQ.OI  60  TO  40 

X 

23 

1005 

OV— 07 

X 

24 

1000 

30 

sr»-sv 

X 

29 

1010 

40 

IP  (LZ.EQ.OI  GO  TO  60 

X 

Z6 

1011 

OZa-OZ 

X 

27 

1012 

50 

sz=-sz 

X 

28 

1013 

60 

RETURN 

X 

29 

1014 

END 

X 

30- 

1015 

SUBROUTINE  S7SIN  IM.NtNOIM.JUIt JU2*MN2«N2tA) 

r 

1 

1016 

DIMENSION  AIN. II 

r 

2 

1017 

JUI=9I 

r 

3 

lots 

JU2392 

r 

4 

lOlO 

MM2=0 

V 

9 

1020 

N2bN 

7 

6 

1021 

MABNOIM/|2*Nt 

7 

7 

1022 

L=0 

7 

8 

1023 

XA=0 

7 

9 

1024 

DO  30  Kal.M 

7 

10 

1025 

KAaKA*-! 

7 

11 

1026 

READ  1901  lAIJ.RAl.Jal.NI 

7 

12 

1  027 

IF  IK.LT.MI  GO  TO  10 

7 

13 

1028 

L>1 

7 

14 

1029 

GO  TO  20 

7 

19 

1030 

10 

IP  IKA.LT.NAI  GO  TO  30 

7 

16 

1031 

20 

CALL  BLKOUT  IJU2.N.N.KA.L.L.AI 

7 

17 

1032 

MM2SMAX0IMM2.KAI 

7 

18 

1033 

KAaO 

7 

19 

1034 

30 

CONTINUE 

7 

20 

1035 

REXINO  90 

7 

21 

1036 

return 

7 

22 

1037 

END 

7 

23- 

1030 

subroutine  SYSTEM  1 X.T.Z.CX.CT.CZ.BX.BT.BZtMl 

Z 

1 

1  039 

DIMENSION  Xf4.II.  VI4.II.  ZI4.1I.  CXIII.  C7III.  CZIll.  BXIII.  8711 

Z 

2 

1040 

tl.  BZIll.  HIM! 

Z 

3 

1041 

COMMON  /ARRAYS/  ITRIII 

Z 

4 

1042 

COMMON  /FIXED/  N 

Z 

5 

1043 

COMMON  /FLOAT/  ONI  1 01 .FS.PX.FT.PZ 

Z 

6 

1044 

■RITE  16.601 

Z 

7 

1045 

DO  so  lal.M 

Z 

8 

1046 

EXaBXIll 

Z 

9 

1047 

EVaBVII 1 

Z 

10 

1045 

IF  IEK.NE.I.E51I  GO  TO  20 

Z 

11 

1049 

DO  10  Jal.M 

Z 

12 

1050 

10 

HIJIaO. 

2 

13 
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1091 

HI ll-t. 

z 

14 

1092 

AlaEV 

z 

IS 

1093 

GO  TO  40 

z 

16 

1094 

20 

CONTINUE 

z 

17 

1099 

EZ-BZllI 

z 

18 

1056 

DO  30  J»1«M 

z 

19 

1097 

CALL  STNTRV  ICKIl l•CV<tl•CZIII■VX»VV•VZ■l.■X|l■JI■V(l•J|.ZI 1 (Jit  IT 

z 

20 

1098 

IRf  Jll 

z 

21 

1059 

30 

HI JI>VX«EX«VV4EV4VZ4EZ 

z 

22 

1060 

AI>-FS4|FX*EX4(>V6EY«7Z4EZ  > 

z 

23 

1061 

40 

continue 

z 

24 

1062 

■RITE  (901  H«AI 

z 

25 

1063' 

SO 

CONTINUE 

z 

26 

1064 

END  FILE  90 

z 

27 

1065 

REMIND  90 

z 

28 

1066 

■RITE  (6t70l 

z 

29 

1067 

RETURN 

z 

30 

1060 

c 

z 

31 

1069 

60 

FORMAT  I19H0SYSTEM  STARTED 1 

z 

32 

1070 

TO 

FORMAT  (16M0SYSTEM  COMPUTED 1 

z 

33 

1071 

END 

z 

34- 

1072 

SUOROUTINE  TOBOOT  (X.Y.ZI 

AA 

1 

1073 

COMMON  FFLOATF  OUNI  71  .FX<FY.FZ.GX.GY>GZ»HX*HT«HZ 

AA 

2 

1074 

FaX4FX4Y46X4Z4HX 

AA 

3 

1073 

GaX4FY*Y46Y4Z4HT 

AA 

4 

1076 

HBX4FZ4Y46Z4Z4HZ 

AA 

9 

1077 

GO  TO  10 

AA 

6 

1070 

ENTRY  TOVINDIXtY.ZI 

AA 

7 

1079 

F-FX6X4FY4Y4FZ4Z 

AA 

6 

1080 

GB6X4X4GY4V46Z4Z 

AA 

9 

1081 

H>HX4X4HY4Y4HZ4Z 

AA 

10 

1002 

10 

X>F 

AA 

11 

1083 

Y»6 

AA 

12 

1084 

Z«H 

AA 

13 

1089 

RETURN 

AA 

14 

1086 

END 

AA 

IS> 

1087 

SUBROUTINE  TYPE  (PX.PY.PZ* VX. VYcVZaG.X.Y.Z.LI 

AB 

1 

1008 

DIMENSION  Xlllt  Ylll.  Z( 1 1 

AB 

2 

1089 

COMMON  /float/  ON. AX. AY. AZ 

AB 

3 

1090 

IF  (L.NE.II  GO  TO  10 

AB 

4 

1091 

AB 

9 

1092 

RETURN 

AB 

6 

1093 

10 

CONTINUE 

AB 

7 

1094 

CALL  SEGN  (G.XI 1 1. VI  1 1.ZI 1 » .X(2I . Y(2I .ZIZI.PX.PV.PZ.YX. VT.VZI 

AB 

6 

1895 

CALL  SEGN  (G.XI  21  .V(2I  .Z(2I  .X(3I.  VI3f  .Z(3>  .PX.PV.PZ.UX.UV.UZI 

AB 

9 

1096 

CALL  SEGN  (G.XI 31 .V(3> .Z(3> .XI4I.VI4I .2(41 .PX.PV.PZ.MX.HV.MZI 

AB 

10 

1097 

VX8UX4VX4VX 

AB 

11 

1090 

VVbUV4VV*«V 

AB 

12 

1099 

WZBUZ4VZ4MZ 

AB 

13 

1100 

IF  (L.NE.2I  GO  TO  20 

AB 

14 
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not 

CALL  SEGN  f  &•  X{  41 1 VC4I  .ZIA 1  .Ml  1  i  •  VI 1 1  .Zl  1 1  •PX.PViPZtMXt V7.HZI 

AB 

IS 

1 102 

VXSVK4WX 

AS 

18 

1 103 

VVBVV4MV 

AS 

17 

1104 

VZ>VZ4WZ 

A8 

18 

1105 

RETURN 

AB 

19 

1  lOA 

20 

CONTINUE 

AB 

20 

I  107 

CALL  RAY  (G*X(4»tVf 4ltZC4l«AX.AV»AZ«PXtPV«PZ«UX.UV«UZI 

AB 

21 

1 108 

CALL  RAV  tG«Xll).VCll*Zfll.AXtAT*AZtPX.PV*PZ.NX.NY.MZl 

AB 

22 

1109 

VX>UX'»VX-MX 

AB 

23 

1110 

VV=UV4VV-XV 

AS 

84 

1111 

VZSUZ4VZ-MZ 

AB 

28 

1112 

RETURN 

AB 

28 

1113 

END 

AB 

27- 

1114 

SUBROUTINE  UNITVZ  IX«V*ZI 

AC 

1 

Ills 

FPl./SGRTl X9924T99Z4Z99ZI 

AC 

8 

1118 

X=F4X 

AC 

3 

1117 

V=F4V 

AC 

4 

1118 

ZaF9Z 

AC 

S 

1119 

RETURN 

AC 

8 

1120 

END 

AC 

7- 

1121 

SUBROUTINE  USER  IXtViZtG) 

AO 

1 

1122 

DIMENSION  XIII.  veil.  Zlll.  61181 

AD 

2 

1123 

1-0 

AD 

3 

1124 

KPAGE-0 

AD 

4 

1188 

10 

J-IOOO 

AO 

8 

1188 

20 

READ  1121  XO.VO.ZO.OSO.A1.A2.X1.X2.V1  .92.21. Z2.rM.A.0*C.O.E.L 

AO 

8 

1127 

IF  IL.Ea.-999l  60  TO  80 

AD 

7 

1128 

IF  IL.NE.1I  GO  TO  40 

AO 

a 

1129 

CALL  VELOeV  IX.V.Z.6.XO.VO.ZO.U. V.MI 

AO 

9 

1130 

CALL  PAGE  fl.J.SOI 

AD 

10 

1131 

IF  IJ.GT.il  60  TO  30 

AO 

11 

1132 

KPAGE-KPA6E41 

AD 

12 

1133 

WRITE  18.701  KPA6E 

AO 

13 

1134 

CALL  VELLAB 

AD 

14 

1138 

30 

CONTINUE 

AD 

18 

1138 

CALL  VELOUT  IXO.VO.ZO.U.V.W.L.XXI 

AD 

18 

1137 

GO  TO  20 

AO 

17 

1138 

40 

IF  IL.NE.2I  GO  TO  20 

AO 

18 

1139 

WRITE  1221  X0.V0.Z0.0S0.AI.A2.Xl.X2.Vl.V2.Zl.Z2.TN.A.B.C.D.e.L 

AO 

19 

1140 

N2-TN 

AD 

20 

1141 

IF  <A1.LT.A2I  60  TO  80 

AO 

21 

1142 

Al-I. 

AD 

22 

1143 

A8b3. 

AO 

23 

1144 

50 

1-I41 

AD 

84 

1148 

CALL  STREAM  IX.V.Z.6.XO.VO.ZO.OSO.A1.A8.X1  .XS.Vl  •  V2.Z1.Z2.N2. 1) 

AO 

28 

1148 

L«4 

AO 

28 

1147 

WRITE  1221  a.L 

AO 

27 

1140 

GO  TO  10 

AD 

88 

1149 

60 

WRITE  1221  6.L 

AO 

29 

1180 

END  FILE  28 

AO 

SO 
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1151 

REWIND  22 

AO 

31 

1152 

RETURN 

AO 

32 

1 153 

C 

AO 

33 

1 154 

70 

FORMAT  <I9H  VELOCITIES  PAGE* 14) 

AD 

34 

1 155 

END 

AO 

35- 

1156 

SUBROUTINE  VELOCV  ( X* Y«Z* G« XB • VB.ZB.TU* TV*T V) 

AE 

1 

1157 

DIMENSION  XC4*1)*  VC4.1I*  ZC4*1)*  611) 

AE 

2 

1158 

COMMON  /ARRAYS/  ITRll) 

AE 

3 

1 159 

COMMON  /FIXED/  MW 

AE 

4 

1 160 

COMMON  /FLOAT/  DNl C A 1 bPS* 0M2C 1 1 ) «RB.RBS 

AE 

8 

1161 

XO^XB 

AE 

6 

1  162 

VO«YB 

AE 

7 

1  163 

ZO^ZB 

AE 

8 

1  164 

CALL  STRCH  CRB*XO*VD«ZD) 

AE 

9 

1  165 

ruso* 

AE 

10 

t  166 

rv«o. 

AE 

II 

1  167 

TWSO* 

AE 

12 

1166 

DO  10  LB|  ,NW 

AE 

13 

1169 

CALL  SVNTRV  C XO* VO*ZO*U«V tW *61 L I >XC 1 >L) • Vf 1 vL ) tZ < 1 vL) • 1 TRCL) ) 

AE 

14 

1170 

TUSTU4U 

AE 

IS 

1171 

TV=TV«-V 

AE 

16 

1172 

rwsrw4w 

AE 

IT 

1173 

to 

CONTINUE 

AE 

18 

1174 

CALL  TOWIND  CTU*TV*TW) 

AE 

19 

1  175 

ru-TUARBS^FS 

AE 

20 

1176 

TV«TV4RB 

AE 

21 

1177 

TW>TWARB 

AE 

22 

1170 

CALL  TOBODV  CTU*TV*T«) 

AE 

23 

1179 

RETURN 

AE 

24 

1150 

END 

AE 

25- 

1101 

SUBROUTINE  VELOUT  ( XO«rD*ZD*U>V« W«L *1 1 

AF 

1 

1182 

COMMON  /float/  0N1C4I.CA*EN*FS*DN2C9)«EM$ 

AF 

2 

1  183 

VSaU*424V4924W4«2 

AF 

3 

1184 

VAsSQRTCVS) 

AF 

4 

1185 

RsVA 

AF 

5 

1186 

IF  CF5*NE*0*)  R«VA/F5 

AF 

6 

1  187 

CP«I .-RVAZ 

AF 

7 

1  188 

AMal.«.CAAEMSACP 

AF 

8 

1189 

IF  fAM*LE«0*)  GO  TO  10 

AF 

9 

1190 

AMsEMAR/SQRTCAM) 

AF 

10 

1 191 

10 

CONTINUE 

AF 

II 

1192 

TVaATANOI V*UI 

AF 

12 

1193 

THsATANOI W*U) 

AF 

13 

1194 

0«AM-EM 

AF 

14 

1 195 

WRITE  III  XO*VO*ZO*U«V*W*VA*AN.TV»TW»CP«D*A*A*A*AbA«A*L 

AF 

15 

1196 

WRITE  16*30)  XD*VO«ZO*U«V*W*VA*AN*TV*rw*CP*D 

AF 

18 

1197 

RETURN 

AF 

17 

1  198 

ENTRY  VELLAB 

AF 

18 

1199 

WRITE  16*20)  - 

AF 

19 

1200 

RETURN 

AF 

20 
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1201 

C 

AF 

21 

1202 

20 

i  IH  •T4*|HX.Tl6<lHV«T20.IH2*r4l  flHU«T5l«lHV«r61*IH«*T70«JH| 

AF 

22 

1  203 

1V| .T^l •1MN.T90.6HAI V.UI tT99«6HA(tf«UI.TI08«2NCP«Tll9«4HN-Nl> 

AF 

23 

1  204 

30 

FUNNAT  ( IP3E12«4.0PSFI0.S.F6.2fF9«2alPE12.3.EI 1.31 

AF 

24 

1205 

ENO 

AF 

25* 

1  206 

susRauriNE  wind 

AG 

1 

120  7 

COMNON  /FLOAT/  OUMl 71 .FX.FY.FZtGX^GTtGZpHXvHV.HZ 

AG 

2 

1  20a 

r=SQNTIFX«424FY442I 

AG 

3 

1209 

IF  CN.GT.oOOll  CO  TO  10 

AG 

4 

1210 

FX=0* 

AG 

0 

1211 

FY=0. 

AG 

6 

1212 

FZ^SIGNC 1 ..FZl 

AG 

7 

1211 

GXbO. 

AG 

8 

1214 

GV«t. 

AG 

9 

1215 

GZ=0. 

AG 

10 

1216 

MXs-FZ 

AG 

11 

1217 

HY^O. 

AG 

12 

I  210 

HZ«0. 

AG 

13 

1219 

RE  turn 

AG 

14 

1220 

10 

GXs-FY/R 

AG 

15 

1221 

Gy»FX/R 

AG 

16 

1222 

GZ-O. 

AG 

17 

1223 

HXS-FZ4GV 

AG 

18 

1224 

HT2FZ4GX 

AG 

19 

1225 

HZ>R 

AG 

20 

1226 

RETURN 

AG 

21 

1227 

END 

AG 

22* 

1228 

subroutine  xout  cju.n.xi 

AH 

1 

1229 

DINENSIUN  XCN.Il 

AH 

2 

1230 

LbO 

AH 

3 

1231 

10 

READ  CJUl  M«LB>LE«(  XI  I*L4K)<Kal  (Ml 

AH 

4 

1232 

L=L4M 

AH 

5 

1233 

IF  IL8.E0.0I  GO  TO  10 

AH 

6 

1234 

REWIND  JU 

AH 

7 

1215 

RETURN 

AH 

0 

1  236 

END 

AH 

9- 

1237 

//GO*Fr 1 IFOOl  DO  DSNs66BaOV* 

1218 

// 

OISP=(OLO«PASSI 

97 

1239 

//GO.FTIEFOOl  00  DSN>66veLI« 

1240 

// 

D 1 SP= 1  OLD • DELETE  I 

1241 

//GO.FfOOFOOl  DO  UNITaHOfUC* 

1  242 

// 

SPACEblCYLd  tdl.RLSE. •ROUND) 

1243 

//GO.FTOIFOOI  DO  UN|T«WOIIK» 

1244 

// 

SPACE=CCVL.( l•l>.RLSE.•RaUNO) 

1245 

//GO.FT92F001  DO  UNITaMQRK. 

1246 

// 

SPACEblCVL*! l•l>•RLSE•fRaUND» 

1247 

//GO«FT22F001  DO  DSNaGGVELY* 

1  248 

// 

UNI T««ORK* 

01090 

1249 

// 

SPACE«(CYL.C lalltRLSEppROUNOIp 

01  100 

1250 

// 

OISP^CNEM.PASSI 

01  ISO 
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1251 

//CO.FTOSFOOl  00  * 

1252 

1253 

1254 

1  255 

1  256 

QUICK 

0. 

0* 

0 

// 

TURN  8ITH  STRUT  «l  M-.5 

90.  90. 

90.  90.  1.0  .50 

1  0 

EXEC  FTHLNKGO. 

38 

1  257 

✓/ 

PLO  TL I a=PLOT76S 

04  290 

1258 

C 

POTENTIAL  FLOW  PLOT  PROGRAM  OONALO  C.  TODD  JAN  3.  197S 

A 

2 

1259 

COMMON  /ALPHA/  LABELI 181 ■ 10 1 1 9> .1 02191 

A 

3 

1  260 

COMMON  /ARRAYS/  CI42I  tP(400«21I 

A 

4 

1261 

COMMON  /CVIEW/  LVIEW.LSCALE.LPOV 

A 

5 

1262 

COMMON  /FIXED/  LPLOTR. INCHES. L800Y.LTR0L.LVELY.LSTRM 

A 

6 

1  263 

COMNON  /FLOAT/  ANtAT.AV.TXtTY.TZ.VMAX.RPO.BIG 

A 

7 

1264 

DATA  NDIM/400/ 

A 

8 

1265 

READ  15.401  LABEL 

A 

9 

1266 

READ  (S.SOI  AN.AT.AV.rX.TY.rZ.VMAX 

A 

10 

1267 

READ  15.601  LPLOTR.  I  NCHES.LBODY.LTROL.LVELY.LSTRN 

A 

11 

1268 

BIG-1.E50 

A 

12 

1269 

RPD3.0I74S329 

A 

13 

1270 

IF  (AW.EO.O.I  LVELV«0 

A 

14 

1271 

IF  IWMAX.LE.O.I  VNAX>aiG 

A 

IS 

1272 

IF  ILPLOTR. £0.8351  INCHES>NINOI  INCHES.  I6t 

A 

16 

1273 

IF  1  INCHES. EO.OI  INCHCS>I6 

A 

17 

1274 

CALL  LABELS  IID1.36H  1 

A 

18 

1275 

CALL  LABELS  1 I02.36HDC  TOOO  CCO  1 

A 

19 

1276 

call  date 

A 

20 

1277 

WRITE  16.701 

A 

21 

1278 

WRITE  16. aO)  101.102 

A 

22 

1279 

WRITE  I6.80>  LABEL 

A 

23 

1280 

WRITE  16.1101 

A 

24 

1281 

WRITE  16.90)  AN.AT.AV.TX.TY.T2.VNAX 

A 

25 

1282 

WRITE  16.1201 

A 

26 

1283 

WRITE  16.100)  LPLOTR. tNCHE5.LBODY.LrROL.L«ELY.LSTRN 

A 

27 

1284 

TX=COSIRPO*TX) 

A 

20 

1285 

TYsCaSIRP06TY) 

A 

29 

1286 

TZsCOSIRPOPTZ) 

A 

30 

1287 

TE- 1 .-1 TX4624TY6624TZ462) 

A 

31 

1288 

YXBAT6TX 

A 

32 

1289 

TY-ATPTY 

A 

33 

1-290 

TZsATPTZ 

A 

34 

1291 

WRITE  16.130) 

A 

35 

1292 

WRITE  16.90)  TX.TY.TZ.TE 

A 

36 

1293 

CALL  SETUP  CP.Pf 1.19I.PII.20).PI1.2l).NOIH) 

A 

37 

1294 

CALL  OPEN 

A 

38 

1295 

DO  20  LVK| .100000 

A 

39 

1296 

READ  15.60)  LVIEW.LSCALE.LPOV 

A 

40 

1297 

IF  ILVIEW.EO.OI  GO  TO  30 

A 

41 

1298 

WRITE  16.140) 

A 

42 

1299 

WRITE  16.100)  LVIEW.LSCALE.LPOV 

A 

43 

1300 

CALL  VIEWZ 

A 

44 
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1 101 

IF  ILVIEM«GT.OI  GO  TO  10 

A 

45 

1302 

CALL  CONTUR  (P«PI 1 .2) .NOI N« 204NOINI 

A 

46 

1303 

GO  TO  20 

A 

47 

1304 

10 

continue 

A 

48 

130^ 

CALL  CORNRS 

A 

49 

1306 

CALL  SKAL2  1  INCHES) 

A 

SO 

1307 

call  START 

A 

51 

i3oa 

CALL  PLOD  CP.PII.I9>tPII>201.PII.2I).NOINI 

A 

52 

1  30<> 

CALL  FINISH 

A 

53 

1310 

8RITE  I6>t50) 

A 

54 

1311 

20 

CONTINUE 

A 

55 

1  312 

30 

CALL  CLOSE 

A 

56 

1313 

WRITE  (6.160) 

A 

57 

1314 

STOP 

A 

56 

1315 

C 

A 

69 

1116 

40 

FORMAT  (1SA4I 

A 

60 

1317 

50 

FORMAT  (TEIO.O) 

A 

61 

1316 

60 

FORMAT  (1415) 

A 

62 

1  319 

70 

FORMAT  (IHI) 

A 

63 

1  120 

80 

FORMAT  I  IH  .I8A4) 

A 

64 

1  321 

90 

FORMAT  (IP10EI2.4) 

A 

65 

1  122 

1  00 

FORMAT  (121 101 

A 

66 

1  323 

110 

FORMAT  (SHO  AN. I0X.2HAT. IOX.2HAV.IOX.2HTX.10X.2HTr *  1 OX. 2HrZ. 10X.4 

A 

67 

1  324 

IHVMAX) 

A 

68 

1  325 

120 

FORMAT  (lOHO  LPLQTR.4X.6HINCHES.5X.5HLBODY.SX.SHLTRaL.5X.SHi.VELV 

A 

69 

1  126 

I.SX.SHLSTRM) 

A 

70 

1327 

130 

FORMAT  (SHO  TX.IOX.2HTV.IOX.2HTZ.IOX.2HrE) 

A 

71 

1  328 

140 

FORMAT  (tOHO  LVIEW.4X .6HLSCALE.6X.4HLPOV) 

A 

72 

1  329 

ISO 

format  (I5H0VIEW  COMPLETED) 

A 

73 

1  J30 

160 

FORMAT  (  I9HOPLOTTIN6  COMPLETED) 

A 

74 

1331 

END 

A 

75- 

1  132 

SUBROUTINE  AMIO  lA.X.B) 

a 

1 

1333 

IF  (A.GT.al  GO  TO  40 

a 

2 

1334 

IF  (X.GE.A)  GO  TO  20 

a 

3 

1335 

to 

XkA 

a 

4 

1336 

RETURN 

a 

5 

1337 

20 

IF  (X.LE.ai  RETURN 

a 

6 

1  330 

30 

X=B 

a 

7 

1339 

RETURN 

a 

a 

1340 

40 

IF  (X.LT.B)  GO  TO  30 

a 

9 

1341 

IF  (X.GT.A)  GO  TO  to 

a 

10 

1342 

RETURN 

a 

11 

1343 

END 

a 

12- 

1344 

SUBROUTINE  CONTRL  (P.N.J.L. JSET) 

c 

1 

1  345 

DIMENSION  PI3.6.I).  Nil).  Jill.  L( 1 1 

c 

2 

1346 

DIMENSION  4113).  A2(3).  A3(3).  NJ(2).  LL(2) 

c 

3 

1347 

COMMON  FARRAVS/  C(3.6) 

c 

4 

1348 

COMMON  /FLOAT/  AN 

c 

5 

1349 

DATA  NJ/2.1/.LL/4.8/ 

c 

6 

1  350 

IF  (Cl I.SI.NE.I.ESO)  GO  TO  20 

c 

7 
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1351 

DO  10  1=1.3 

c 

e 

1352 

Cl Ii5t=.254«CII.I)*CI l•^l»CII.3|4C(1.4l 1 

c 

9 

1353 

10 

PI  1. I.JOETIbCI I.5I 

c 

10 

1354 

20 

IF  ICI1.6).NE.I.E50I  GO  TO  60 

c 

11 

1355 

00  30  1=1.3 

c 

12 

1356 

A1III=CII.4I-CII.2I 

c 

13 

1357 

30 

A2I 1 l=CI I.31-CI  I. 1 1 

c 

14 

1350 

A3I II=A1I2>*A2I3>-A1I3I«A2I2) 

c 

15 

1  159 

A3I2)=AII 3I4A2I 1 l-AII 11442131 

c 

16 

1360 

A3(3)  =  AII  1 14A2I2I-A1I2I4A2I  1) 

c 

17 

1361 

F  =  S0RTI  A3I  1  >4424431  2 1 4424431  3) *421 

c 

18 

1  162 

IF  IF.GT.O.I  GO  TO  40 

c 

19 

1  363 

LZ=2 

c 

20 

1364 

GO  To  00 

c 

21 

1  165 

40 

L2=I 

c 

22 

1  366 

F=l./F 

c 

23 

1367 

OO  SO  1=1.3 

c 

24 

1  368 

50 

Cl I.6>>F4A3I I ) 

c 

25 

1  369 

60 

OO  70  1=1.3 

c 

26 

1  370 

70 

P|I.2.JSCT>=CI I.5I4AN4CI  1.61 

c 

27 

1371 

80 

NIJSETI=NJILZI 

c 

28 

1372 

JIJSETIbNJILZI 

c 

29 

1373 

L1JSET)=LLILZI 

c 

30 

1374 

RETURN 

c 

31 

1375 

END 

c 

32- 

1376 

SUBROUTINE  CONTUL  ILX.LV.LC. IOC) 

0 

1 

1377 

DIMENSION  IOII3).  ID2I3) 

0 

2 

1  370 

COMMON  /ALPHA/  L ABELl 36 1 . lOXI 9 ) . 1071 9 I 

D 

3 

1  379 

DATA  iOI/4H  X  .4H  7  .4H  Z  / 

0 

4 

1380 

DATA  I02/4HX  =  .4H7  •  .4HZ  =  / 

0 

5 

1381 

IOXI5)=IOIILXl 

l> 

6 

1  382 

I07IS)=I0IIL7) 

0 

7 

1383 

IF  ltLX.NE.I>.AND.|L7*NE.I)l  LC=I 

D 

8 

1  184 

IF  1 ILX.NE.Z) .AND.IL7.NE.2) 1  LC=2 

8 

9 

1385 

IF  1 ILX.NE.3I.AN0.IL7.NE.3))  LC=3 

D 

10 

1386 

I0C=102ILCI 

0 

11 

1  187 

RETURN 

D 

12 

1388 

END 

D 

13- 

1389 

SUBROUTINE  CONTUR  IZ.A.NOZ.NOAI 

E 

1 

1390 

OINENSION  211).  All) 

E 

2 

1391 

COMMON  /ARRA7S/  Cl  18) 

E 

3 

1392 

COMMON  /FIXED/  LOUN. INCHES 

E 

4 

1393 

COMMON  /FLOAT/  OUHI 15) .XI .X2.7I .72 

E 

5 

1  394 

DATA  F/1.4/ 

E 

6 

1395 

READ  15.120)  LX.L7.LZ.NX.N7.NZ.NSKIP 

E 

7 

1  396 

IF  INZ.EO.OI  NZ=7 

E 

8 

1  197 

NA=NX4N7 

E 

9 

1398 

■RITE  16.150) 

E 

to 

1399 

■RITE  16.130)  LX.L7.LZ.NX.N7.NZ.NSKIP.NA 

E 

11 

1400 

IF  IINA.LE.NOAI.AMD.INZ.LE.NOZ))  GO  TO  10 

E 

12 
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1401 

4»«|TE  (6*170) 

E 

13 

1  402 

HLTURN 

E 

14 

1  40  3 

10 

CONTINUE 

E 

15 

t  404 

CALL  CONTUL  (LX .L V«LC t IOC) 

E 

16 

1  405 

IH  (NSKIP.EQ.O)  GO  TO  30 

E 

17 

1  40b 

OU  20  JsloNSKlP 

E 

18 

t  407 

20 

•)E:aD  (I2>  C«L 

E 

19 

1408 

30 

CONTINUE 

E 

20 

1409 

on  60  Js| ,NA 

E 

21 

1410 

9EA0  (12)  C.L 

E 

22 

1411 

IF  ( J.6T. 1 )  GO  TO  40 

E 

23 

141? 

CL=C(LC) 

E 

24 

141  J 

X|=C(LX) 

E 

25 

1414 

ri=c«Lr ) 

E 

26 

1  41  b 

GJ  TO  50 

E 

27 

1  41  A 

40 

IF  (J.LT.NA)  GO  TO  50 

E 

28 

1417 

X2=C(LX) 

E 

29 

1  41  '3 

y2=c(Ly ) 

E 

30 

1419 

50 

A( J)=C(L2) 

E 

31 

1  420 

60 

CONTINUE 

E 

32 

1421 

NhWiNO  12 

E 

33 

1422 

IF  (X2.GE.X1)  GO  TO  70 

E 

34 

1  423 

Xls-Xl 

E 

35 

1424 

K2=-X2 

E 

36 

1  42b 

70 

IF  (Y2.GE.Y1)  GO  TO  80 

E 

37 

1426 

Vls-Vl 

E 

38 

1  42  7 

Y2S-Y2 

E 

39 

1428 

00 

OX=( X2-X1 )/(NX-l 1 

E 

40 

t«29 

0V=(Y2-Yl )/(NV*l) 

E 

41 

1430 

CALL  VALUS  ( NA t A.NZ • 2 ) 

E 

42 

1431 

FQITE  (btl60)  NZ 

E 

43 

14  32 

WMITE  (6«140)  ( Z( J)» Jal«NZ) 

E 

44 

1433 

IF  (NZ.LE.NOZI  GO  TO  90 

E 

45 

14  34 

WRITE  (6.170) 

£ 

46 

1435 

return 

B 

47 

1436 

90 

CONTINUE 

E 

48 

1  437 

CALL  SKAL2  (INCHES-2) 

E 

49 

1  438 

CALL  START 

E 

50 

1439 

B1=9.S 

E 

SI 

1440 

82=9.0 

E 

*52 

1  441 

03=6.5 

E 

53 

1442 

H=.  1 

E 

54 

1  44  3 

S=(6«/7«)«H 

E 

55 

1  444 

STEPS  1 • tt4H 

E 

56 

l«4b 

AI=-«5-13.0*S 

E 

57 

1446 

A2=-.5-9.00*S 

E 

58 

1447 

AS=-«5-l0.54S 

E 

59 

1448 

CALL  SYMUUL  ( A 1 *8 1 .H. IOC« 0* *4) 

E 

60 

1449 

CALL  PLTFLT  ( A2 • B1 . H.CL. 0 • • Jl 

E 

61 

1  450 

ZL=L7 

E 

62 
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I4SI 

CALL  SYMBOL  C AS* B2*H*SHLZ  «  •O.vSI 

E 

63 

1452 

CALL  NUMBER  1-0* *-0* »-0.»2L«0* •-! 1 

E 

64 

1451 

L=0 

E 

65 

1454 

DO  100  Jsl*NZ 

E 

66 

1455 

BsZlJI 

E 

67 

1456 

CALL  LEVEL  <NXtNV*XI *71 .OX.DVvAaBvLvNl 

E 

68 

1457 

IF  CN.EO.Ol  GO  TO  100 

E 

69 

1458 

BS=a34.5*H 

E 

70 

1459 

CALL  SYMBOL  ( AS*aS*H«L*0 • t-l 1 

E 

71 

1460 

CALL  PLTFLT  C A2 *83 •H*Bt 0* ■ 31 

E 

72 

1461 

L=L«>1 

E 

7J 

1462 

B3«B3-STEP 

E 

74 

1  463 

IF  (B3»LT««51  go  to  110 

E 

75 

1^64 

100 

CONTINUE 

e 

T6 

1  465 

CALL  FINISH 

E 

77 

1466 

WRITE  (Oal801 

E 

78 

1  467 

RETURN 

E 

79 

1  468 

110 

CALL  finish 

E 

80 

1469 

WRITE  16*1901 

E 

81 

1470 

RETURN 

E 

82 

1471 

C 

E 

83 

1472 

120 

FORMAT  Cl  4151 

E 

04 

1473 

130 

FORMAT  CI2I10I 

E 

85 

1474 

140 

FORMAT  C|P10E12«4l 

E 

66 

1475 

150 

FORMAT  C lH0*7X«ZHLX*aX*2HLV«8X*2HLZ*BX«2HNX«8X*2HNY*0X*2HNZ«5X*5HN 

E 

67 

1476 

ISKIP*aX*2HNAl 

E 

88 

1477 

160 

FORMAT  CI5H0Z  VALUES  NZ  9*131 

E 

89 

1  478 

170 

FORMAT  I34HOUNOER  OINENStONED*  VIEW  ABORTED. 1 

E 

90 

1479 

ISO 

FORMAT  CISHOVIEW  COMPLETEOI 

E 

91 

1480 

190 

FORMAT  I19H0VICW  NOT  COMPLETEOI 

E 

92 

1481 

END 

E 

93 

1482 

SUBROUTINE  CORNRS 

f 

1 

1483 

COMMON  /ARRAYS/  XC 9| * VC 9) t Ql 241 

F 

2 

1484 

COMMON  /FLOAT/  DM I C 81 •B1G.0M2C6 1 vXl .XZ* V| * V2 

F 

3 

1485 

XI=B16 

F 

4 

1486 

VIbBIG 

F 

5 

1487 

X2B-BIG 

F 

6 

1488 

Y2=-aiG 

F 

7 

1489 

CALL  VIEW  18*0. X*V| 

F 

8 

1490 

DO  10  K9l *8 

F 

9 

1491 

XIbAMINIC  XlvXCKl 1 

F 

10 

1492 

Vt  =  AM|NUVl.VCKIl 

F 

1 1 

1493 

X2sANAXl ( X2*Xf K 1 1 

F 

12 

1494 

V2=ANAX1CV2*VCK1I 

F 

13 

1495 

10 

CONTINUE 

F 

14 

1496 

WRITE  C6«201 

F 

15 

1497 

WRITE  16*301  Xl«VI«X2tV2 

F 

16 

1498 

RETURN 

F 

17 

1499 

c 

F 

18 

1500 

20 

FORMAT  I5H0  XI • 10X*2HV| * I0X*2HX2 *10X*2HY2I 

F 

19 
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1501 

30 

FORMAT  IIP10EI2.4I 

F 

20 

1502 

END 

F 

21- 

1503 

SUBROUTINE  DATE 

G 

1 

1  504 

OIMENSION  KMI7I*  MN(I2I<  NHII2I 

G 

2 

ISOS 

COMMON  /ALPHA/  1. ABI 1 81  •  JOBI  31  .K ALf 6> 

G 

3 

1500 

DATA  KH/4HSUN  .AHMON  .4HTUE  • 4HMEO  .4HTHU  (ANFRI  .AHSAT  / 

G 

4 

1507 

DATA  MN/4HJAN  <4HFEB  .AHMAR  tAHAPR  lAHMAV  «4HJUN  tAHJUL  lAHAua  i4H 

G 

S 

1508 

ISEP  .AHOCT  .4HNOV  .4HDEC  / 

G 

6 

1509 

DATA  NM/3I.2S.3I«30«31>30>3I.3I .30«3I ■30>3I/ 

G 

T 

isto 

CALL  6ETHHO  IJOB.JVO) 

6 

B 

1511 

JYoJVD/IOOO 

G 

9 

1512 

JOaJVD- IOaO*JT 

G 

10 

1  513 

JT=JV»1900 

G 

11 

1S14 

NsJVAlOOOO 

G 

12 

ISIS 

J  «=N4 1  NA  3 1 /4- 1 N4 991  / 1  004 1  N* 399 1 /400 4  JO- 1 

G 

13 

1S16 

JRBjM-741 ( JM-I 1/71 

G 

14 

1517 

IF  (N.NE.44IN/4I >  GO  TO  20 

G 

15 

ISIS 

IF  IN.NE. 1004IN/10011  GO  TO  10 

G 

16 

1519 

IF  |N.NE>4004|N/400)I  GO  TO  20 

G 

17 

1520 

10 

NN(2|b29 

6 

18 

1521 

GO  TO  30 

6 

19 

1522 

20 

NM(2t-2e 

G 

20 

1523 

30 

CONTINUE 

G 

21 

1524 

OO  40  JN>1.12 

G 

22 

1525 

IF  IJD.LE.NMIJNll  GO  TO  56 

G 

23 

1526 

40 

JO>JO-NN( JNI 

6 

24 

1527 

90 

CONTINUE 

G 

25 

1528 

J23JD/I0 

G 

26 

1529 

JlsJO->10«J24240 

G 

27 

1530 

J2>J24240 

G 

25 

1531 

K4SJV/I000 

6 

29 

1532 

jyejV-IOOOAKA 

G 

30 

1533 

K4BK44240 

G 

31 

1534 

K3>JV/100 

G 

32 

1535 

JV-JV-I004K3 

G 

33 

1536 

KJsK 34240 

G 

34 

1537 

K2XJV/I0 

6 

35 

1536 

KI«JV-I04K24240 

6 

36 

1539 

K2aK24240 

G 

37 

1540 

kali 

6 

38 

1541 

KALI2l>MNfJN| 

6 

39 

1542 

KALI3iB6442S6«(  1074  25691 J142S69J2II 

G 

40 

1543 

K AL 1 4 I aK 1 42569 I K24 2569 I K342069K6 1 » 

6 

41 

1544 

RETURN 

G 

62 

1545 

END 

6 

63- 

1546 

SUOROUTINE  FILMID  ILSE) 

H 

1 

1547 

DIMENSION  LSEI2I 

H 

2 

1568 

CONNON  /ALPHA/  LABEL!  181  *300131  •KALf6l«  102191 

H 

3 

1549 

CALL  SYMBOL  10. .0. ■ 1* .LSE*0.*5l 

H 

6 

1550 

CALL  SYMBOL  10. *6.. 1.. 300*0**81 

H 

5 
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1»51 

CALL  SYMBOL  I0.*4.<I.>KAL<0»«I6) 

H 

6 

1552 

CALL  SYMBOL  1 0. • 2. . I . > 102.0 . t 18 1 

H 

7 

1553 

HETUHN 

H 

6 

155« 

ENTRY  UNCLAS 

hi 

9 

1555 

CALL  CALCNP  CO.. 0.. 0.21 

H 

10 

1556 

CALL  SYMBOL  1 0. .9. . 1 . 5. I 2HUNCLASSIFIED.-30. • 1 2} 

H 

11 

1557 

RETURN 

H 

12 

1555 

ENO 

H 

13- 

1559 

SUBROUTINE  LABELS  CL.NI 

I 

1 

1560 

DIMENSION  Lfll.  Mill 

1 

2 

1561 

00  10  ,9 

1 

3 

1562 

10 

LC JI=Nl JI 

I 

4 

1563 

RETURN 

1 

5 

1564 

END 

I 

6- 

1565 

SUBROUTINE  level  I NX.NV.XN. YN.OX.OY.A. V.L.Nl 

J 

1 

1566 

DIMENSION  AINK.NYt.  XI4I.  YI4> 

J 

2 

1567 

MX=NX-1 

J 

3 

1568 

MY-NY-1 

J 

4 

1569 

NsO 

J 

5 

1570 

DO  130  Kal.MY 

J 

6 

1  571 

TI=YN*CK-ll*OY 

J 

7 

1572 

00  130  jBt.MX 

J 

8 

1571 

X1>XN*( J-II4DX 

J 

9 

1574 

NbO 

J 

10 

1575 

VlBAI J.K) 

J 

11 

1576 

V2bA( J4I.KI 

J 

12 

1577 

V3sA<  J*I.K4n 

J 

13 

1578 

V4SAI J.K4II 

J 

14 

1579 

OloV-VI 

J 

15 

1580 

02BV-V2 

J 

16 

1581 

03bV-V3 

J 

17 

1502 

04aV-V4 

J 

18 

1583 

IF  (OI.EQ.O.I  GO  TO  SO 

J 

19 

1584 

IF  101*02. LT. 0.1  CO  TO  60 

J 

20 

1585 

10 

IF  102. EO. 0.1  GO  TO  70  '' 

J 

21 

1586 

IF  102*03. LT.O. I  CO  TO  80 

J 

22 

1587 

20 

IF  COS.EO.O.I  GO  TO  90 

J 

23 

1568 

IF  CO3*04.LT.0.l  GO  TO  100 

J 

24 

1589 

30 

IF  I04.EQ.0.I  GO  TO  110 

J 

25 

1590 

IF  <04*01 .LT.O. 1  GO  TO  120 

J 

26 

1591 

40 

IF  <N.NE.2>  GO  TO  130 

J 

27 

1592 

N*N*M 

J 

28 

1  593 

CALL  LINC  CX.Y.M.I. I.LI 

J 

29 

1594 

GO  TO  130 

J 

30 

1595 

SO 

MxM*! 

J 

31 

1596 

XIMIaxI 

J 

32 

1597 

YIM)=Y1 

J 

33 

1598 

CO  TO  10 

J 

34 

1599 

60 

NsM*l 

J 

35 

1600 

X|h)eX1*0X*0I/< V2-VIT 

J 

36 
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1601 

YC  M|sYl 

J 

37 

1602 

GU  TO  to 

J 

30 

1603 

70 

1 

J 

39 

1604 

XlM)aXS«-0X 

J 

40 

1606 

Y«M|=ri 

J 

41 

1606 

GiJ  TO  20 

J 

42 

1607 

80 

MaM*  1 

J 

43 

160a 

XCM1=X1«-0X 

J 

44 

1600 

Y(M}s7|4DV4D2/l V3-V2I 

J 

45 

1610 

GO  TO  20 

J 

46 

161  1 

90 

MsM«- 1 

J 

47 

1612 

X(M)=X140X 

J 

48 

1613 

YCM)sVl«>0V 

J 

49 

1614 

GO  TO  30 

J 

50 

lol6 

too 

M-M41 

J 

51 

1616 

XCM)aXl40X-0X403/C V4-V3I 

J 

52 

1617 

VIM|=Y1#0V 

J 

53 

I6ia 

GO  TO  30 

J 

54 

1610 

110 

1 

J 

55 

1620 

XC  M1=X1 

J 

56 

1621 

Y| M)=V160V 

J 

57 

1622 

GO  TO  40 

J 

SO 

1623 

120 

NsM»  1 

J 

59 

1624 

Xf  M)sXl 

J 

60 

1625 

Y|M)=Y1«>DV-DV*D6/CVI-V4| 

J 

61 

1626 

GO  TO  40 

J 

62 

1627 

130 

CONTINUE 

J 

63 

1620 

return 

J 

64 

1629 

ENI> 

J 

65- 

1630 

subroutine  linc  |X«V*N«K« j«li 

K 

1 

1631 

DIMENSION  Kill.  Till 

K 

2 

1632 

COMMON  /FLOAT/  OUMI 19> • XO. VOvOX.OVaXF • YF 

X 

3 

1633 

DATA  CT/.965925a/.ST/*2588l90/iOA/. 110/ 

K 

4 

1634 

IF  |L«NE*69|  go  TO  20 

X 

5 

1635 

UaXC  23*X(  1  » 

< 

6 

1636 

V=V<2>-VC II 

X 

7 

1637 

Tso*A24>V««2 

X 

8 

1638 

IF  CT.GT.O.I  GO  TO  10 

X 

9 

1639 

N=1 

K 

10 

1640 

J-l 

X 

11* 

1641 

L»1 

K 

12 

1642 

GO  TO  20 

X 

13 

1643 

10 

raOA/SQHTCTI 

K 

14 

1644 

TXsT*ABSCDX> 

X 

15 

1645 

TV=T«ARS(DY| 

K 

16 

1646 

XCJiaXf 2|-TX4<U4Cr4V4ST| 

K 

17 

1647 

XC4)aX(2)-TX4|U«C T-V6STI 

X 

18 

1648 

X<5|=X{21 

X 

19 

1649 

Vf 31aY(2)*Tr4CU4ST-V«Cri 

K 

20 

1650 

Y(4|aYl 2)-TV*(U6ST4V6CT> 

X 

21 
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1651 

7t5|sY|2| 

1652 

1653 

20 

Nt3N41 

1654 

N23N42 

1655 

XtNI)>X0 

1656 

Xf N21=DX 

1657 

7(NI |3VO 

1658 

7(N2|sOV 

I6S6 

DO  30  1=1 tN 

1660 

CALL  AMID  CXQ«Xfl>.XF| 

1661 

CALL  AMID  <V0.V|1).VF> 

1662 

30 

CONTINUE 

1663 

1664 

RETURN 

1665 

END 

1666 

SUBROUTINE  LOOP  IP.N.J.L 

• JSETl 

1667 

DIMENSION  Pfl8.ll.  Nll)« 

Jill.  LID 

1668 

CONMUN  /ARRAYS/  CCIBI 

1669 

DO  10  l=l«12 

1670 

10 

p(iijsEn-ci  I) 

1671 

DO  20  1-1.3 

1672 

20 

P<I24I.JSET>-CIII 

1673 

Nl JSETI-S 

1674 

J( JSETI-O 

1675 

LIJSETI-0 

1676 

RETURN 

1677 

END 

1678 

subroutine  next  ip.n.j.l 

.  JSET.NOIM) 

1679 

dimension  PI3.6.NDINI.  NINOIMI.  JlNDINI. 

1680 

COMMON  /ARRAYS/  C( 181*0(3.8) 

1681 

COMMON  /FLOAT/  OUM(9l«Xl 

«X2«T1« Y2*Z1»Z2 

1682 

IF  1 JSET.EQ.NOIMI  GO  TO 

10 

1683 

IF  INI JSETI.EQ.O)  GO  TO 

to 

1684 

JSET=JSET41 

1685 

RETURN 

1686 

10 

DO  20  J$-I*NDIM 

1687 

NJ=N(JS)  . 

1688 

IF  INJ.EO.O)  GO  TO  30 

1689 

00  20  K-l.NJ 

1690 

Xl=AMINIf  XI  tPCl*K«  JSn 

1691 

VI-AMINI(Y1.PI2.K.JS)> 

1692 

Zl-AMINIIZI  .PI3.K.JS)I 

1693 

X2=ANAXI 1 X2«PC 1 vK. JSI ) 

1694 

V2-AMAXII Y2.P(2.K. jS) 1 

1695 

20 

ZZbAm'aX1IZ2.PI3.K.J$)) 

1696 

30 

WRITE  120)  P.N.J.L 

1647 

IF  INJ.EO.O)  CO  TO  40 

1698 

JSET-I 

1699 

RETURN 

1700 

40 

END  FILE  20 

7  a 

12345678901234567890 
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23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 
36- 

1 

2 

3 

4 

5 

6 
7 

e 

9 

10 

II 

12- 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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1701 

1702 

1703 

1704 

1705 
I  705 
1707 
1700 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 
1710 
1  719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 
1720 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 
1730 

1739 

1740 
17*1 

1742 

1743 

1744 

1745 

1746 

1747 
1740 

1749 

1750 
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C 

50 

60 


10 


REMIND  20 
01 !• llaXI 
Of l•2l«XI 
Of 1(3>SXI 
Of  1.413X1 
Of  1.513X2 
Of  1.613X2 
Of  1.713X2 
Of  1.013X2 
Of  2.  1|3V1 
af2.2|3V| 

Of  2.31392 

012.41392 

Of  2.51391 
012.61391 
012.71392 
012.01392 

Of 3.1»3Z| 

013.21322 

013.31321 
013.41322 
013.51321 
013.61322 
013.71321 
Of  3.01322 
MRITE  16.50) 
HRITE  16.60) 
RE  TURN 


XI. X2.91. 92.21  .22 


20 


FORMAT  f5HO  XI • 10X.2HX2. lOX. 2M91 . I0X.2HV2. 10X.2H21 . lOX .2N22I 
FORMAT  flP10ei2.4) 

END 

SUOROUTINE  OPEN 
DIMENSION  BUFFI 2000) 

COMMON  7FIXE07  LPLOTR 
COMMON  /FLOAT/  OUMf2S).M 
NUFF30000 

IF  ILn.0TR.NE.765l  GO  TO  10 
CALL  PLOTS  lOUFF.NUFFI 
RETURN 

IF  1LPL0TH.NE.03S)  GO  TO  20 
CALL  CALCMP  1 BUFF .MUFF. LT APE. 0) 

CALL  CALCMP  l•S*.5•0.3) 

CALL  CALCMP  1 lAUXA. IAUXB.30.7) 

CALL  FILHIO  lOMSTART  t 
CALL  UNCLAS 

CALL  CALCMP  1 1 AUXA.  lAWXB.  16.7) 

RETURN 

CONTINUE 

RETURN 


24 

25 

26 
27 
20 
29 

0 

1 

2 

3 

14 

5 

6 
7 
0 
9 
0 
1 
2 

3 

4 

5 

6 
7 
O 
9 
0 

51 

52 

53 

54 
55- 

1 

2 

3 

4 

5 

6 
7 
0 
9 

10 

11 

12 

13 

14 

15 

16 
17 
10 
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1751 

ENTRV  CLOSE 

N 

19 

1752 

IF  (LPL0TR.NE.r85l  GO  TO  30 

N 

20 

1753 

CALL  PLOT  to. .0. .9991 

N 

21 

1754 

RE  TURN 

N 

22 

I7SS 

30 

IF  ILPLaTR.NE.83S)  GO  TO  40 

N 

23 

1  756 

CALL  CALCNP  I. 5.. 5. 0.31 

N 

24 

1  757 

CALL  CALCNP  1 1 AUXA. 1 AUXR. 30 .71 

H 

25 

1758 

CALL  UNCLAS 

H 

26 

1759 

CALL  CALCNP  (0..0..0.2I 

H 

27 

1760 

CALL  FILMIO  I  SHE MO  1 

N 

28 

1761 

CALL  CALCNP  1 0. . 0. .9999.2 ) 

N 

29 

1762 

RE  TURN 

N 

30 

1763 

40 

CONTINUE 

N 

31 

1  764 

RETURN 

N 

32 

1765 

END 

N 

33- 

1  766 

SUBROUTINE  PLOO  IP. N. J.L. NO |M» 

O 

1 

1767 

DIMENSION  P(3.8.N0INI.  NINOIMI.  JIMIINI.  LINDINI 

0 

2 

1  768 

COMMON  /ARRAVSF  X(9I.V(9) 

0 

3 

1769 

OO  10  JR>I. 100000 

0 

4 

1770 

READ  (201  P.N.J.L 

0 

5 

1771 

OO  10  JS^I.NOIM 

0 

6 

1772 

NJ-N(3SI 

0 

7 

1  773 

IF  (NJ.LE.Ot  GO  TO  20 

0 

0 

1774 

CALL  VIEM  (NJ.Pf 1.1 .JSI.X. VI 

o 

9 

1775 

10 

CALL  LINC  IX.V.NJ.l.JIJSI.LIJSII 

0 

10 

1  776 

20 

REMIND  20 

Q 

11 

1777 

return 

O 

12 

1776 

END 

0 

13- 

1779 

SUBROUTINE  SETUP  (P.N.J.L.NOINI 

p 

1 

1780 

DIMENSION  Pill.  Mill.  3111.  Llll 

p 

2 

1781 

COMMON  /ARRAVSr  CdSI 

p 

3 

1782 

COMMON  /FIXED/  LPLOTR. INCHES. LBOOV.LTROL.LVELV.LSTRM 

p 

4 

1  783 

COMMON  /float/  DUNI 8) •VNAX.RP0.B16.KI .X2.YI . V2.ZI .22 

p 

5 

1  704 

XlsolG 

p 

6 

1785 

X2B-BI6 

p 

7 

1786 

VIbSIG 

p 

a 

1787 

V23-alG 

p 

9 

1788 

ZIbBIG 

p 

10 

1789 

z2B-eic 

p 

11 

1  790 

JSETBl 

p 

12 

1791 

IF  (LBOOV.EQ.O.ANO.LTROL.EO.OI  go  to  80 

p 

13 

1792 

NWbO 

p 

14 

1793 

DO  80  JRB 1 . 1 00000 

p 

15 

1794 

READ  I  1 1 1  C.LT 

p 

16 

1795 

IF  (LT. EG. -9991  GO  TO  70 

p 

17 

1796 

NMBNH4I 

p 

18 

1797 

BXbCI 181 

p 

19 

1798 

IF  (LBOOY.EQ.OI  GO  TO  50 

p 

20 

1799 

IF  (LT.NE.3I  GO  TO  10 

p 

21 

1800 

CALL  SHOE  (P.N.J.L. JSETI 

p 

22 
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laoi 

GO  TO  40 

P 

23 

1  ao2 

10 

IF  <LT«NE.2)  GJ  to  20 

P 

24 

1  A03 

CALL  LOOP  (P*N«3»L«3SETI 

P 

25 

lt)04 

GO  TO  40 

P 

26 

laos 

20 

IF  iLT.Nt.l)  GO  TO  30 

P 

27 

1  aoo 

CALL  SUUHCF  (P aN • J* L« JSE T 1 

P 

28 

tao7 

GO  TO  40 

P 

29 

laoa 

30 

CONTINUE 

P 

30 

iao9 

GU  ru  SO 

P 

31 

1  aio 

40 

CALL  rtflXT  <P«N« J*L« JSET.NOIMI 

P 

32 

tail 

SO 

IF  (LrNOL.EO.Ol  GO  TO  60 

P 

33 

tai2 

IF  (8X»E0»1.E51|  GO  TO  60 

P 

34 

1911 

CALL  CONTHL  IP* N • J.La JSET > 

P 

35 

1914 

CALL  NEXT  CP^N. JaL. JSET.NOIMI 

P 

36 

lats 

60 

CONTINUE 

P 

37 

1  910 

70 

RFWINO  II 

P 

38 

181  7 

WRITE  I6al40l  N« 

P 

39 

1919 

80 

IF  (LVELVaEOaOaANOaLSTRMaEQaO)  GO  TO  130 

P 

40 

1  919 

DO  no  JRslalOOOOO 

P 

41 

1420 

RtAO  1121  CaLT 

P 

42 

1921 

IF  CLr*EQ.-999l  GO  TO  120 

P 

43 

1  922 

IF  (LT.NEall  GO  TO  90 

P 

44 

1  923 

IF  ILVELV.EOaOl  GO  TO  90 

P 

4S 

1  924 

IF  CC(7)«GF.aVMAX)  GO  TO  90 

P 

46 

1  925 

CALL  VELV  CPaNaJaLa JSETI 

P 

47 

1926 

CALL  NEXT  ( P aNa J aLa 3$ET a NO IM) 

P 

48 

1  92  7 

GO  TO  no 

P 

49 

1928 

90 

IF  (Lr.NE.2)  GO  TO  100 

p 

SO 

142«l 

IF  (LSTRN.EOaO)  60  TO  100 

P 

51 

1830 

CALL  STRM  CPaNaJaLa JSETaNOIMI 

P 

S2 

1831 

GO  TO  no 

P 

53 

1932 

100 

CONTINUE 

P 

54 

1833 

110 

CONTINUE 

P 

55 

1834 

120 

REWINO  12 

P 

56 

1435 

130 

N( JSETlsO 

P 

57 

1836 

CALL  NEXT  (PaNa JaLa JSETaNOIMI 

P 

58 

1837 

RETURN 

P 

59 

1838 

c 

P 

60 

1839 

140 

FORMAT  (5H0N0  ■•161 

P 

61 

1840 

END 

P 

62- 

1841 

SUBROUTINE  SHOE  1 P aNa JaUa JSE T 1 

0 

1 

1842 

dimension  PClBalla  Ntlla  Jflla  LCII 

0 

2 

1843 

COMMON  /ARRAYS/  CflSI 

0 

3 

t  844 

COMMON  /FLOAT/  DUM(3laTC3) 

0 

4 

1845 

DO  10  t■lal2 

0 

5 

1  846 

10 

PC.l4|aJ5ET|sCf  l> 

0 

6 

1847 

DO  20  |sla3 

0 

7 

1848 

PllaJSET)MCCI14TII| 

0 

8 

1849 

20 

Pi  l5«'iaJSET|sCC94l|4TCll 

0 

9 

1350 

NCJSET>«6 

a 

10 
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1851 

j( jsEri>o 

0 

It 

1852 

LlJSETlsO 

Q 

12 

1853 

RETURN 

0 

13 

1854 

END 

Q 

14- 

1055 

subroutine  SKALE  fXl.X2<t*J.M«NI 

R 

1 

1856 

C 

DC  TODD  6/9/71 

R 

2 

1857 

XNsXt 

R 

3 

1858 

XM3X2 

R 

4 

1059 

lAs:l 

R 

5 

I860 

DXBIXM-XNI/IA 

R 

6 

1861 

E=.0014AMAXllABSIXMi,AaSI XNI 1 

R 

7 

1862 

IF  (OX.GT.E)  GO  TO  10 

R 

6 

1  863 

OX-E 

R 

9 

1864 

IF  lOX.EO.O.I  OXsl. 

R 

10 

1865 

asXN«-XN 

R 

11 

1866 

E=1A40X 

R 

12 

1867 

XN>.54f B4EI 

R 

13 

1868 

XN>.54|0-EI 

R 

14 

1869 

10 

EsALOGl OlOXi 

R 

IS 

1870 

J=E 

R 

16 

1871 

IF  (J.OT.El  J-J-1 

R 

17 

1072 

0>10.**(E-J> 

R 

18 

1873 

IF  IB.GT. 1.411  GO  TO  20 

R 

19 

1874 

M^I 

R 

20 

1879 

60  TO  50 

R 

21 

1876 

20 

IF  IB.GT. 3. 161  GO  TO  30 

R 

22 

1877 

Ma2 

R 

23 

1878 

60  TO  SO 

R 

24 

1079 

30 

IF  CB.GT.7.081  GO  TO  40 

R 

2S 

1880 

HbS 

R 

26 

1881 

GO  TO  SO 

R 

27 

1882 

40 

N3| 

R 

28 

1803 

J>J41 

R 

29 

1884 

50 

DXbN«I0*44J 

R 

30 

1005 

N«XN/OX 

R 

31 

1886 

60 

0«N4DX 

R 

32 

1887 

IF  IB.LE.XNI  GO  TO  70 

R 

33 

1888 

NBN-l 

R 

34 

1889 

GO  TO  60 

R 

35 

1890 

70 

l>IXN-ai/DX 

R 

36 

1891 

00 

E=B4|*OX 

R 

37 

1892 

IF  lE.GE.XM)  60  TO  90 

R 

36 

1893 

IsI4l 

R 

39 

1894 

GO  TO  00 

R 

40 

1895 

90 

CONTINUE 

R 

41 

1896 

RETURN 

R 

42 

1897 

END 

R 

43- 

1898 

SUBROUTINE  SKAL2  1 INCHESI 

s 

1 

1099 

DIMENSION  KOA(3l 

S 

2 

1900 

COMMON  /CVtEB/  LOUMMV.LSCALE 

s 

3 

1 234567890 1 2345678901 234507890123456789012349670901 23456789012349670901234567890 


AEDC-TR-75-75 


SAMPLE  RUN 


CK  LISTING 


PAGE  39 


1  2  3  4  5  6  7  8 

1234567590 1  2  345678901 2345678901 2345678901 2345676901234567890 1 2345678901234567890 


1901 

coMMUN  /float/  dun( 151 aXi •X2t yi (YZ* xo«ro«oXf or< xf« vf*«x 

S 

4 

1902 

DATA  KOA/I.Z.S/ 

S 

5 

1903 

aY=ia. 

s 

6 

1904 

IF  ILSCALE*Ea«0>  GO  TO  10 

s 

7 

1905 

READ  IS»aO)  xo.vo.ox.ov.ax 

s 

8 

1906 

GO  TO  70 

s 

9 

1907 

10 

a x= INCHES 

s 

10 

1908 

OXs(  X2-XI  1/BX 

s 

11 

1909 

DY=lT2-ri i/ar 

s 

12 

1910 

STEP=AMAXIIDX.OYi 

s 

13 

1911 

IF  ISTEP.LE.O.)  STEPa«5«IXI*YI) 

s 

14 

1912 

IF  1  STEP. LE. 0*1  STEP-I« 

s 

15 

1913 

EsALOGIOCSTEPI 

s 

16 

1914 

JE-E 

s 

17 

1915 

IF  lE.LT.O.I  JE«JE>1 

5 

18 

1916 

OO  30  Jal.lO 

s 

19 

1917 

E=IO.*«JE 

s 

20 

1918 

on  ZO  K=l*3 

s 

21 

1919 

KO-KOAIKI 

s 

22 

1920 

STEPaKO*E 

s 

23 

1921 

SO=Xl/STEP 

s 

24 

1922 

JOsSO 

s 

25 

1923 

IF  (SO.LT.O.I  JObJO>I 

s 

26 

1924 

OOaSO-JO 

s 

27 

1925 

IF  IOa.GE..99l  JOaJCHI 

s 

28 

1926 

xosjoasTEP 

s 

29 

1927 

SO=YI/STEP 

s 

30 

1928 

JOaSO 

s 

31 

1929 

IP  CSO.LT.O>I  JOaJO-1 

s 

32 

1930 

00a SO- JO 

$ 

33 

1931 

IF  too. GE.. 991  JOaJIHI 

s 

34 

1932 

YOaJoaSTEP 

s 

35 

1933 

ya xo» 1 wx» . 0 1 1 asTEP 

s 

36 

1934 

IF  IV.LT.XZ)  GO  TO  ZO 

s 

37 

1935 

V a YOa ( a Ya • 0 1 I aSTEP 

s 

36 

1936 

IF  (V.LT.YZI  go  to  ZO 

s 

39 

1937 

60  TO  40 

s 

40 

1938 

20 

CONTINUE 

s 

41 

1939 

30 

JEaJEal 

s 

42 

1940 

40 

OO  SO  Ja|« inches 

s 

43 

1941 

BXaaX-l. 

s 

44 

1942 

yaxoaf  Mxa. oil asTEP 

s 

45 

1943 

IF  IV.LT.XZI  GO  TO  OO 

s 

46 

1944 

IF  (aX>LT.5«OI  GO  TO  60 

s 

47 

1945 

50 

CONTINUE 

s 

48 

1946 

60 

MXaMXai. 

s 

49 

1947 

OXaSYEP 

s 

50 

1948 

OVaSTEP 

s 

5t 

1949 

70 

XFBXoayxaox 

s 

52 

1950 

YFaroawYaoY 

s 

S3 
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1951 

HRITE  (6<90> 

$ 

54 

1952 

ORITE  lOilOOl  XO.VO«OX*OV*«X 

5 

55 

1953 

RETURN 

S 

56 

1954 

c 

S 

57 

1955 

80 

FORMAT  I7EI0«0> 

S 

58 

1956 

90 

FORMAT  ISHO  XOalOXiXHVO* IOX>2HOX«IOXi2HOr«IOX(2HMXI 

S 

59 

1957 

100 

FORMAT  (IPI0EI2.AI 

S 

60 

1958 

END 

S 

61- 

1959 

subroutine  SOURCE  IP«N« J.L* JSET) 

r 

1 

1960 

DIMENSION  PII8*l>a  Nlll.  Jill*  LIII 

T 

2 

1961 

CONMON  /ARRAVS/  CUB) 

T 

3 

1962 

DO  ID  1-1*3 

T 

4 

1963 

10 

PI I.JSETI-CI IASI 

T 

5 

1964 

NlJSETt«t 

r 

6 

1965 

JIJSETt=l 

T 

7 

1966 

LIJSET)a|| 

T 

8 

1967 

RETURN 

f 

9 

1968 

END 

T 

10- 

1969 

SUBROUTINE  START 

U 

1 

1970 

CONHON  /ALPHA/  L ABi 181 ■ IDSI 18 1 « IDXI9I >I OVI 9 1 

u 

2 

1971 

COMMON  /CVIEM/  LVIEM 

u 

3 

1972 

COMMON  /FIXED/  LPLOTR 

u 

4 

1973 

COMMON  /FLOAT/  OUNi 1 91 . XO. VOtOXaOV* XF*VF. 8 

u 

5 

1974 

IF  ILPL0TR.NE.76SI  GO  TO  10 

11 

6 

1975 

CALL  PLOT  CO. .-12.0*31 

u 

7 

1976 

CALL  PLOT  (0.  .-II  .3.-31 

u 

8 

1977 

IF  (LVIEM.lt. 01  CALL  PLOT  I1.5.0..23I 

u 

9 

1978 

CO  TO  20 

u 

10 

1979 

10 

IF  (LPL0TR.NE.839I  GO  TO  20 

u 

11 

1980 

CALL  CALCMP  (0..0..0.2I 

u 

12 

1981 

X>.S 

u 

13 

1982 

IF  (LVIEM.lt. 01  X-2. 

u 

14 

1963 

CALL  CALCMP  (X..S.0.3I 

15 

1904 

20 

continue 

u 

16 

1985 

CALL  AXIS  (O..O..IOX.-3A.M.O..XO.DX.IO.I 

u 

17 

1986 

CALL  AXIS  (O..O..IOT.3A.I0..90..VO.OV.IO.I 

If 

18 

1987 

RETURN 

If 

19 

1988 

ENTRY  FINISH 

If 

20 

1909 

CALL  SYMBOL  ( HA. 08. 10. .. l6.LAB.-90. .721 

u 

21 

1990 

CALL  SYMBOL  (WA.32.IO...I6.IOS.-90..72I 

If 

22 

1991 

IF  (LPLOTR. EO. 7651  CALL  PLOT  IHA3..0..23) 

u 

23 

1992 

RETURN 

J 

24 

1993 

END 

u 

25- 

1994 

SUBROUTINE  STRM  IP. N. J.L. JSET. NOl M) 

V 

1 

1995 

DIMENSION  PO.O.II.  Nllt.  Jill.  LIII 

V 

2 

1996 

COMMON  /ARRAYS/  Cl  181 

V 

3 

1997 

K-O 

V 

4 

1998 

10 

READ  (121  C.LV 

V 

5 

1999 

IF  (LV.EO.AI  CO  TO  SO 

V 

6 

2000 

K-KAl 

V 

7 
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6 
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1  Z3ASb7S<IO  1 2.1«Sb7890l  23A5678901 23ASb7890l  23AS*7890IZ3«5b7S901 234567890 123456/890 

2001 

20 

00  30  l=l<3 

V 

a 

2002 

30 

P|liK.JSETI=CII  I 

V 

9 

200J 

IF  IK.LT.6)  go  to  10 

V 

10 

2004 

40 

NIJSETIaK 

V 

II 

200S 

Jl JSkTI=0 

V 

12 

2006 

LUSETI^o 

tf 

13 

2007 

CALL  NEXT  IP«N« J>Li JSET.NOIMI 

V 

14 

2000 

IF  IK.LT.6I  RETURN 

V 

15 

2009 

K^l 

V 

16 

2010 

GU  TO  20 

V 

17 

201  1 

50 

IF  (K.GT. 1 1  GO  TO  40 

V 

18 

2012 

RE  TURN 

V 

19 

2011 

ENO 

V 

20- 

2014 

SUOROUTINE  unitvz  ix.v.zi 

9 

1 

2015 

F=l ./SORTIKACZ^VCAZFZ^AZI 

4 

2 

2016 

XaF*X 

■ 

3 

2017 

v=F*y 

4 

20  in 

2=F*Z 

5 

2019 

RETURN 

6 

2020 

ENO 

« 

7- 

2021 

SUBROUTINE  VALUS  IN.A.N.V.FI 

X 

1 

2022 

C 

SELECT  CONSTANT  VALUES  FOR  CONTOUR  PLOTS 

DC  TOOO 

7/23/71 

X 

2 

2023 

nIMENSION  AMI.  Vlll 

X 

3 

2024 

AbaO. 

X 

4 

2025 

ASsO. 

K 

5 

2026 

Otl  10  1  =  1. N 

X 

6 

2027 

48=48441  I  t 

X 

7 

2020 

10 

AS>AS*AI 1 IVAZ 

X 

8 

2029 

Aa=Aa/N 

X 

9 

2030 

AS=<  AS/N-AO*Aai«*.S 

X 

10 

2031 

HI=Aa-F4AS 

X 

11 

2032 

82=A04F*AS 

X 

12 

2033 

call  SKALE  IBI*82.M.ieXP.IOX.ININI 

X 

13 

2034 

M=H4  1 

X 

14 

2035 

0X=I0X4I0.«4IEXP 

K 

15 

2036 

VI II=IMIN40X 

X 

16 

2037 

00  20  1=2. M 

X 

17 

2030 

20 

VI  I l=V( l-l »40X 

X 

18 

2039 

RETURN 

X 

19 

2040 

END 

X 

20- 

2041 

SUBROUTINE  VELV  IP.N. J.L. JSETI 

7 

1 

2042 

DIMENSION  PI3.6.li.  Nl 1 1 t  JCI).  Ltll 

r 

2 

2043 

COMMON  /ARRAYS/  Cl  3.6> 

y 

3 

2044 

COMMON  /FLOAT/  AN.AT.AV 

Y 

4 

2045 

DO  10  1=1.3 

r 

5 

2046 

PII.I*JSET)=CII*lt 

Y 

8 

2047 

10 

P{I.2«JSETI=CII.|}*AV4GI I.2I 

Y 

7 

2040 

NIJSET|=2 

Y 

8 

2049 

J(JSET»=0 

Y 

9 

2050 

LIJSET)=69 

Y 

10 

123456789012345678901 23A56r0901234S670901234S67890l234S6r090l23«5670901234567890 
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2051 

RETURN 

Y 

11 

2052 

end 

V 

IZ- 

2053 

SUBROUTINE  VIEM  INiPiK.Vt 

z 

1 

2054 

OINENSION  PI3«II«  Kill,  veil 

z 

2 

2055 

COMMON  /CVIEV/  L 

z 

3 

2056 

COMMON  /V1EM4/  TT 

z 

4 

2057 

COMMON  /VIEM57  aX.aV.OZ.UX>UV«U2*VX.VV.VZ«MX.BV.NZ 

z 

5 

2058 

IP  CL.NE.ll  60  TO  20 

z 

6 

2059 

00  10  KBl.N 

z 

7 

2060 

XIKI>PI2.KI 

z 

8 

2061 

T(KI=P|3.K1 

z 

9 

2062 

10 

CONTINUE 

z 

10 

2063 

RETURN 

z 

11 

2064 

20 

IF  IL*NE*2I  GO  TO  40 

z 

12 

2065 

00  30  Ks|<N 

z 

13 

2066 

X|KI>PI l•Kt 

z 

14 

2067 

T(Ki-PI3.K> 

z 

15 

2068 

30 

CONTINUE 

z 

16 

2069 

return 

z 

IT 

2070 

40 

IF  (L.NE.3I  GO  TO  60 

z 

la 

2071 

DO  50  K>1.N 

z 

19 

2072 

XIKI«P( ItXI 

z 

20 

2073 

VIKI>PI2.KI 

z 

21 

2074 

50 

CONTINUE 

z 

22 

2075 

return 

z 

23 

2076 

60 

IF  IL.NE.41  GO  TO  80 

z 

24 

2077 

00  70  KS1«N 

z 

25 

2076 

XIK )sPI 1 •K1-PC8«K1 

z 

26 

2079 

r(K)=TT4CPt I.Kl4Pf2.KII*PC3.KI 

z 

27 

2080 

70 

CONTINUE 

1 

25 

2081 

RETURN 

z 

29 

2062 

80 

IF  (LaNE.SI  GO  TO  100 

z 

30 

2083 

DO  90  Ks|«N 

z 

31 

2084 

RX>PCl.Kl-OX 

z 

32 

2085 

RV>PI2<KI-OV 

z 

33 

2  086 

RZsPC3>K)-OZ 

z 

34 

2087 

XPsR X tUXA R Y «U V4R 2 OUZ 

z 

35 

2088 

VPsRX*VX4RV6VV4flZ4VZ 

z 

30 

2089 

ZPaRX«MX4RV«l>V4RZ*OZ 

z 

37 

2090 

XIKia-XP/ZP 

z 

38 

2091 

7IK)=-YP/2P 

z 

39 

2092 

90 

CONTINUE 

z 

40 

2093 

RETURN 

z 

41 

2094 

100 

CONTINUE 

z 

42 

2095 

RETURN 

z 

63 

2096 

END 

z 

64- 

2097 

SUBROUTINE  VIEVZ 

AA 

1 

2098 

COMMON  /ALPHA/  LABEL136I • 10X191 • 1071 91 

AA 

2 

2099 

COMMON  /CVIEW/  L 

AA 

3 

2100 

COMMON  /FLOAT/  OUNf7)«RPO 

AA 

4 
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2101 

COMMON  ^VICH4/  TT 

A4 

5 

2102 

IF  (L>Nb.l 1  GO  TO  10 

AA 

6 

2103 

CALL  labels  (IDX.36H  V 

) 

AA 

7 

2104 

CALL  LABELS  IIOT.SOH  Z 

) 

AA 

a 

2105 

RETURN 

AA 

9 

2106 

10 

IF  (L.NE.2I  GO  TO  20 

AA 

10 

2107 

CALL  LABELS  (IDX.36M  X 

) 

AA 

11 

2108 

call  labels  (IOr.36H  Z 

) 

AA 

12 

2100 

RE  TURN 

AA 

13 

2110 

20 

IF  |L*NE.3>  go  to  30 

AA 

14 

2111 

CALL  LABELS  II0X(36H  X 

) 

AA 

15 

2112 

CALL  LABELS  ltDr«3»N  T 

> 

AA 

16 

2113 

RE  TURN 

AA 

17 

2114 

30 

IF  IL.NE.4I  GO  TO  40 

AA 

16 

2115 

CALL  LABELS  1 I0X.34H  ISOMETRIC 

) 

AA 

19 

21 16 

CALL  LABELS  IIOT.SOH 

) 

AA 

20 

2117 

TT=TANIRPO930.l 

AA 

21 

2118 

RE  TURN 

AA 

22 

2119 

40 

IF  IL.NE.SI  60  TO  SO 

AA 

23 

2120 

CALL  LABELS  IIOX<3»H  PERSPECTIVE 

) 

AA 

24 

2121 

CALL  LABELS  (10V.3GH 

) 

AA 

25 

2122 

CALL  VIEWSZ 

AA 

26 

2123 

RETURN 

AA 

27 

2124 

50 

CONTINUE 

AA 

25 

2125 

CALL  LABELS  1 10X»3«KI 

) 

AA 

29 

2126 

CALL  LABELS  (tOV.36M 

) 

AA 

30 

2127 

RETURN 

AA 

31 

2128 

END 

AA 

32 

2129 

SUBROUTINE  VIEM5Z 

AB 

1 

2130 

COMMON  /CVIEM/  LOUMNVI 2| .LPOV 

AB 

2 

2131 

COMMON  /FLOATS  DUMI 91 • XI . K2 . VI . V2.ZI tZS 

AB 

3 

2132 

COMMON  /VIEMS/  OX.OT>OZ>UX.UV»UZ«VX.VV.VZ.VX>«V»VZ 

AB 

4 

2133 

IF  (LPOV.EO«0}  GO  TO  10 

AB 

5 

2134 

READ  15*30)  aX*OV*OZ 

AB 

6 

2135 

READ  <5*30>  PX.PV.PZ 

AB 

7 

2136 

READ  15.30)  QX.OY.QZ 

AB 

B 

2137 

GO  TO  20 

AB 

9 

2138 

10 

OXs2,*xi-x2 

AB 

10 

2139 

OY*2.*T2-YI 

AB 

11 

2140 

OZ>2«*ZI-Z2 

AB 

12 

2141 

PX».2S*<  3*  9X14X2) 

AB 

13 

2142 

PVS.S9I V14V2) 

AB 

14 

2143 

PZ9.5«fZI4Z2) 

AB 

15 

2144 

QXsPX 

AB 

16 

2145 

OY=PV 

AB 

17 

2146 

0ZSZ2 

AB 

16 

2147 

20 

■XsOX-PX 

AB 

19 

2148 

WY=OV-PY 

AB 

20 

2149 

VZbOZ-PZ 

AB 

21 

2150 

VXbQX-QX 

AB 

22 
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2ISI 

vrsOY-ov 

A3 

23 

2152 

VZ^OZ-'QZ 

AB 

24 

2153 

UXbWV^VZ-  «Z  *9  7 

AS 

25 

2154 

UY=HZ4VX-  YX4VZ 

AB 

26 

2155 

UZB4X6VY- MV4VX 

AB 

27 

2156 

C4LL  UNITYZ  (UX«UY«OZl 

AB 

2B 

2157 

CALL  UNITYZ  l«X.«Y»9Z) 

AB 

29 

2158 

VX=WY*UZ-N2«UY 

A3 

30 

2159 

VVs«Z*UX-HX*UZ 

AB 

31 

2160 

VZs«X*UV- XY4UX 

AB 

32 

2161 

WRITE  I6«401  ' 

AB 

33 

2162 

WRITE  (6t50»  OXtOT«QZ*PX*PTtPZtQX«QTtQ2 

AB 

34 

2163 

RETURN 

A3 

35 

2164 

C 

AB 

36 

2165 

30 

format  I7EI0.0) 

AB 

37 

2166 

40 

FORMAT  <5H0  OX»IOX.2HOY« 10X*2HOZ « 1  OX tZHPX* I0X« 2HPV « |0X«2HPZ« 1 OX. 2 

AB 

3B 

2167 

IHQX. IOX.2HOY* 10X.2HOZI 

AB 

39 

2166 

50 

format  C1PI0E12.4} 

AB 

40 

2169 

ENO 

AB 

41< 

2170  //CO.PLOTTAPb  00  UNITa2600-2<LABELNf (OLPI •OSN-TODO.OtSP-l .KEEPI  6 

2171  //GO.FT20FOOI  00  UNITsWORK. 

2172  /f  SPACF=ICVL«I I*!! .RLSE..ROUNOI 

vj  2173  //GO.FTl  IFQOI  -OO  0SN>55B00V. 

2174  //  OISP=IOLOfOELErEI 

2175  //GO.FTI2F001  00  0SN>55VELV. 

2176  //  OISPx(QLDiOELETE) 

2177  //GO.FTOSFOOl  00  6 

2178  QUICK  TURN  WITH  STRUT  01  Mx.S 

2179  0*  2.  .9  0«  90«  90«  9< 

2180  765  20  1  1  1  1 

2181  I 

2182  2 

2183  3 

2184  4 

2185  5  ONI 

2186  6.  30.  6. 

2187  10.  0.  4. 

2188  10.  0.  0. 

2189  ~l 

2190  2  3  9  7  9 

2191  -I 

2192  2  3  10  7  9 

2193  -I 

2194  2  3  9  7  9  0  63 

2195  -1 

2196  2  3  10  7  9  0  63 

2197  O 

2198 

12345678901234967890123456789012345678901234567890123456789012345678901234567890 
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APPENDIX  B 
SAMPLE  PROBLEM 

Following  is  a  sample  problem  for  the  flow  analysis  of  a  sting-strut  configuration. 
The  tabulation  of  the  model  coordinates  and  construction  pattern  of  the  model  lattice 
following  the  method  described  in  Section  3.3,  Vol.  II,  is  shown  in  Table  B-1.  The  model 
data  tabulation,  which  is  derived  from  Table  B-1  and  that  is  used  as  the  model  input 
into  PFP  as  described  in  Section  3.3,  is  shown  in  Table  B-2.  Five  views  of  the  model 
from  the  Plot  Program  are  shown  in  Fig.  B-1.  These  views  allow  the  configuration  to 
be  checked  for  possible  errors  prior  to  initiating  the  PFP.  The  input  data  for  PFP,  as 
described  in  Sections  3.1  and  3.2,  are  shown  in  Table  B-3.  A  tabulation  of  the  velocity 
data  described  in  Section  3.5  is  given  in  Table  B-4.  The  flow  angularity  data  from  Columns 
9  and  10  are  shown  in  Fig.  B-2.  A  tabulation  of  the  streamline  data  described  in  Section 
3.5  is  shown  in  Table  B-5.  The  plots  of  the  streamline  data  and  vector  plots  of  the  flow 
angularity  data  from  the  velocity  data  are  shown  in  Fig.  B-3. 
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Table  B-1.  Coordinates  and  Construction  Pattern  of  the  Model  Lattice 


J 

V 

2 

1 

■  .QOOOt 

00 

OeO 

S.TSOOE 

00 

2 

•  .•MOE 

00 

OeO 

a.ITOOE 

00 

S 

■.•SOOE 

00 

4.2000E-01 

4. ITOOE 

00 

« 

•.aaooE 

00 

4.2000E-01 

s.TsodE 

00 

5 

a.asooE 

00 

4.20006-01 

S.SSOOE 

00 

6 

a.aaooE 

00 

0.0 

S.  33  ODE 

00 

7 

a.TaooE 

00 

0.0 

4. ITOOE 

00 

a 

a.TBOQE 

00 

4.20006-01 

4. ITOOE 

00 

9 

v.raooE 

00 

4.20006-01 

S.TSOOE 

00 

10 

•.rsooE 

00 

4.20006-01 

S.SSOOE 

00 

II 

9>7aOOE 

00 

0.0 

S.SSOOE 

00 

12 

l.OTSOE 

01 

0.0 

4. ITOOE 

00 

13 

l.OTSOE 

01 

4.20006-01 

4.ITOOE 

00 

14 

t.OTSOF 

01 

4.2000E-01 

S.TSOOE 

00 

15 

l.OTSOE 

01 

4.20006-01 

S.SSOOE 

GO 

16 

l.OTSOE 

01 

0.0 

S.SSOOE 

00 

17 

I.IOSOE 

01 

0.0 

4. ITOOE 

00 

10 

i.iasofe 

01 

4.20006-01 

4. ITOOE 

00 

19 

I.IOSOE 

01 

4.20006-01 

S.TSOOE 

00 

20 

I.IOSOE 

01 

4.20006-01 

S.  S300E 

00 

21 

I.IOSOE 

01 

0.0 

S.SSOOE 

00 

22 

l.IZlOE 

01 

0.0 

a.ITOOE 

00 

23 

I.MIOE 

01 

4.20006-01 

4. ITOOE 

00 

24 

i.aolOE 

01 

4.20006-01 

S.TSOOE 

00 

29 

i.saioE 

01 

4.20006-01 

S.SSOOE 

00 

26 

l.illOE 

01 

0.0 

S. S300E 

00 

27 

l.OOOOE 

90 

0.0 

0.0 

J 

Jl 

22 

M 

J4 

1 

1 

2 

s 

1 

2 

1 

3 

4 

1 

3 

1 

4 

S 

1 

4 

1 

S 

a 

1 

9 

2 

7 

0 

3 

6 

1 

a 

9 

4 

? 

a 

9 

10 

9 

a 

s 

10 

II 

6 

9 

T 

12 

IS 

a 

10 

0 

13 

14 

9 

11 

9 

14 

IS 

10 

12 

12 

17 

10 

13 

13 

is 

ta 

19 

14 

14 

14 

19 

20 

19 

19 

is 

20 

21 

16 

16 

IT 

22 

2S 

la 

17 

10 

23 

24 

19 

la 

19 

24 

2S 

20 

19 

20 

29 

20 

21 

20 

0 

0 

0 

0 
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Table  B-1.  Continued 


J 

X 

V 

2 

i 

9,7000E 

00 

0.0 

3,33002 

00 

2 

9.7a00€ 

00 

4.200 QE-01 

3.33002 

00 

3 

1.07502 

01 

4.20002-01 

3.3300C 

00 

4 

1.07502 

01 

0.0 

3.33002 

00 

5 

9.9800C 

00 

0.0 

i.OOOOE 

00 

6 

9.98002 

00 

4.2000E-01 

1.00086 

00 

7 

1.04502 

01 

4.2MOOE-01 

3.00Q8E 

00 

a 

1 .09602 

01 

4.2U00E-01 

3,00002 

00 

9 

1.09602 

01 

0.0 

3,00002 

00 

10 

1.02902 

01 

41.0 

2.5008E 

00 

11 

1.02902 

01 

4.200 OE-01 

2,50006 

00 

12 

1. 07  702 

01 

4.20002-01 

2.50006 

00 

13 

1.12602 

01 

4.20002-01 

2.50002 

00 

14 

1.12602 

01 

0.0 

2.50002 

00 

13 

1.06002 

01 

0.0 

2,00006 

00 

16 

1 .06002 

01 

4.2000F-01 

2.00002 

00 

17 

1.10802 

01 

4.20002-01 

2.00006 

00 

la 

1.15T0E 

01 

4.20002-01 

2.0000C 

00 

19 

1.15702 

01 

0.0 

2.00006 

00 

20 

1.0910E 

01 

0.0 

l.SOOCfe 

00 

21 

1.09 IOC 

01 

4.20002-01 

1.500 OF 

00 

22 

1.14002 

01 

4.20002-01 

1.50002 

00 

23 

1.18802 

01 

4.20002-01 

1.5000F 

00 

24 

1.18802 

01 

0.0 

1.50002 

00 

25 

1.12102 

01 

0.0 

1,00006 

00 

26 

1.12102 

01 

4.2000C-01 

1,00006 

00 

27 

1.171U2 

01 

4.20002-01 

1,00006 

00 

28 

1.21902 

01 

4.20002-01 

1,00006 

00 

29 

1.219UE 

01 

0.0 

1,00006 

00 

30 

1.15J0E 

01 

0,0 

5,00006-01 

31 

1.15302 

01 

5.00006-01 

5*00006-01 

32 

1.2030E 

01 

5.U0006-01 

5.00006-01 

33 

1 .25002 

01 

5.00002-01 

5.00006-01 

34 

1.25002 

01 

0.0 

5.00006-01 

35 

1 .00002 

so 

0.0 

0.0 

J 

J1 

J2 

43 

44 

1 

1 

5 

6 

2 

2 

2 

6 

7 

2 

3 

2 

7 

3 

2 

4 

3 

7 

8 

3 

5 

3 

• 

9 

4 

6 

5 

10 

11 

6 

7 

6 

11 

12 

7 

a 

7 

12 

13 

8 

9 

8 

13 

14 

9 

10 

10 

15 

16 

1 

11 

11 

16 

17 

2 

12 

12 

17 

18 

3 

13 

13 

18 

19 

4 

14 

15 

20 

21 

6 

15 

16 

21 

22 

7 

16 

17 

22 

23 

8 

17 

18 

23 

24 

9 

la 

20 

25 

24 

19 

21 

26 

21 

2 

20 

22 

27 

28 

3 

21 

23 

28 

29 

4 

22 

25 

30 

31 

6 
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2S 

26 

31 

32  27 

2 

24 

2T 

32 

33  20 

2 

25 

2f 

33 

34  29 

2 

26 

0 

0 

0  0 

0 

J 

X 

V 

2 

1 

1.2M0E 

01 

0.0 

-5.0000E-01 

2 

1.2130E 

01 

0.0 

-5.0000E-01 

3 

leiasoE 

01 

OeO 

0*0 

4 

lel530E 

01 

0.0 

5*00001-01 

5 

i.2S00E 

01 

5.0000E-01 

-S.OOOOE-01 

6 

U2130E 

01 

9.0000E-01 

-5.0000E-01 

7 

UiaiOE 

01 

9.0000E-01 

0.0 

S 

l»i930E 

01 

5.0000E*01 

5.0000E-0I 

9 

1.2S00E 

01 

9.0000E-01 

-5.0000E-01 

10 

1.2270E 

01 

S.OOOOE-01 

0.0 

11 

iefOaOE 

01 

S.OOOOf-01 

5*00000-01 

12 

1.3240E 

01 

9.0000E-01 

-S.OOOOE-01 

13 

U3130E 

01 

S.OOOOE-01 

0*0 

14 

1.2900E 

01 

5.0000E-01 

5.000QE-91 

>5 

1«2500E 

01 

0.0 

5*00000-01 

16 

1.3000E 

01 

5.0000E-01 

S.OOOOE-01 

17 

1.3000E 

01 

0.0 

5.00000-01 

If 

l*3a20E 

01 

f.OOOOf-01 

-S.OOOOE-Ol 

19 

U3a20E 

o\ 

5.0000E-01 

0*0 

20 

U3a20E 

01 

5.0000E-01 

S.OOOQE-01 

21 

U3a20E 

01 

0*0 

5*00000-01 

22 

1 *00005 

50 

0.0 

0.0 

J 

41 

J2 

J3  J4 

L 

1 

1 

5 

4  2 

2 

2 

2 

6 

7  3 

2 

3 

3 

7 

a  4 

2 

4 

6 

9 

10  T 

2 

5 

7 

10 

11  a 

2 

6 

9 

12 

13  10 

2 

7 

10 

13 

14  11 

2 

a 

12 

10 

19  13 

2 

9 

13 

19 

20  16 

2 

10 

13 

16 

14  13 

2 

11 

14 

16 

17  15 

2 

12 

16 

20 

21  17 

2 

L3 

0 

0 

0  0 

0 
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--j 

U) 


X 

V 

t 

U2900F 

01 

0.0 

-9.0000E-01 

U2S00E 

01 

9.0000E-01 

-9.0000E-01 

01 

3*OO0OE*Ol 

•9.00008- 

01 

1.3820C 

01 

9,OOOOE-Ol 

•9.0000E-01 

L.3820C 

01 

0.0 

-9.0000E-01 

U2T50C 

01 

0.0 

-l.OOOOE 

00 

U27$a2 

01 

9.00001*01 

-l.OOOOE 

00 

1.3120E 

01 

9 .00008*01 

-l.OOOOE 

00 

U3I20E 

01 

9.0000E-01 

-l.OOOOE 

00 

U3620E 

01 

0.0 

•l.OOOOE 

00 

1.30001 

01 

0.0 

*1.99008 

00 

1.3000E 

01 

9.0000E*01 

-1 .95008 

00 

1.340UE 

01 

9.0000E-01 

*1.99008 

00 

l«i020E 

01 

9.0000E*01 

•1.9900E 

00 

1.3020F 

01 

0.0 

*1.99008 

00 

l•3100E 

01 

0.0 

•2.2900E 

00 

1.3100E 

01 

4.2000E-01 

•2.25008 

00 

U3470E 

01 

4.20008-01 

•2.2900E 

00 

1 .30202 

01 

4.2000E-01 

-2.2900E 

00 

1.3020E 

01 

QmO 

*2.29008 

00 

1.3200E 

01 

0.0 

*2.99008 

00 

1 .32002 

01 

4.2000E-01 

*2 .99008 

00 

1 .39908 

01 

4.2000E-01 

-2*99008 

00 

U3020E 

01 

4.2000E->01 

•2.99008 

00 

1.302 08 

01 

0.0 

-2.99008 

00 

l.OOOOE 

90 

0.0 

0.0 

J1 

J2 

J3 

24 

1 

4 

7 

2 

2 

7 

8 

3 

3 

8 

9 

4 

4 

9 

10 

9 

4 

11 

12 

7 

7 

12 

13 

8 

0 

13 

14 

9 

0 

14 

19 

10 

11 

14 

17 

12 

12 

17 

18 

13 

13 

18 

19 

14 

14 

19 

20 

19 

14 

21 

22 

17 

17 

22 

23 

10 

18 

23 

24 

19 

19 

24 

29 

20 

0 

0 

0 

0 
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J 

y 

1 

1 

1.28S.ir 

01 

J.O 

i.O 

z 

1.'7Si)6 

01 

l.TOUO^-Jl 

3.0 

s 

1.3750*: 

01 

|.6000«'-01 

i.0(#00.--01 

4 

1.3790*' 

01 

2.6UCC*-|}1 

2.6000F-01 

« 

1.37SJi- 

01 

i.i>OuJ*-aL 

3.6000*-Ul 

4 

1.J7S0P 

J1 

0.0 

3.7000t-0l 

7 

1.4? 70S 

01 

9.70005-01 

0.0 

d 

1.4270P 

01 

S.4000*-01 

1.40006-01 

9 

1.42 70« 

01 

4.10006-01 

4.10006-01 

10 

U4270P 

01 

1.4000t-01 

9.40006-01 

11 

1.427US 

01 

0.0 

9.70006-01 

12 

1.4K50E 

01 

8.00006-01 

0.0 

13 

U4«S0» 

01 

7.70006-01 

2.10006-01 

14 

1 .48905 

01 

$.60006-01 

9.60006-01 

IS 

1.4050* 

01 

2.10006-01 

7.7000F-01 

16 

t.40SOS 

01 

0.0 

8.00006-01 

17 

1.9900S 

01 

8.00006-01 

0.0 

IK 

1.990U* 

01 

7.70006-01 

2.10006-01 

19 

l.9900< 

01 

5.6000:-01 

S. 60006-01 

20 

1.5900« 

01 

2.10006-01 

7.70006  -01 

21 

1 .99005 

01 

0.0 

8.00006-01 

22 

1.60 3oe 

01 

6.70006-01 

0.0 

23 

I.6030C 

01 

4.40006-01 

1.70006-01 

34 

1.6030* 

01 

4.80006-01 

4.80006-01 

2S 

1.6030E 

01 

1.70006-01 

6.40006-01 

36 

1.6030P 

01 

0.0 

4.70006-01 

27 

1.73001 

01 

6.70006-01 

0.0 

2S 

1.7300E 

01 

6.70006-01 

4.50006-01 

29 

1.7300r 

01 

4.90006-01 

6.70006-01 

30 

t.7300S 

01 

0.0 

6.70006-01 

31 

1.0000* 

01 

0.0 

6.70006-01 

32 

1.8300* 

01 

4.70006-01 

0.0 

33 

1.8300* 

01 

4.7O006-O1 

5.60006-01 

34 

1.83005 

01 

9.60006-01 

6.70006-01 

iS 

1 .83007 

01 

2.0000*-01 

6.70006-01 

36 

1.9040E 

OK 

6.70006-01 

O.C 

37 

1.9040E 

01 

6.70006-01 

6.70006-01 

3B 

1.9040S 

01 

3.30001-01 

6.  70006-  01 

39 

2.09005 

01 

6.7000*-01 

0.0 

40 

2.0S00S 

01 

4.70006-01 

6.70006-01 

41 

2.0360S 

01 

3.30006-01 

6.70006-01 

42 

2.23006 

01 

6.70006-01 

0.0 

43 

2.23006 

01 

6.70006-01 

6.70006-01 

44 

2.20606 

01 

3.30006-01 

6.70005-01 

4S 

2.4500f 

01 

4.70006-01 

0.0 

46 

2.49UOE 

01 

6.70006-01 

6.70006-01 

47 

2.39706 

01 

3.30006-01 

6.70006-01 

40 

2.6370* 

01 

3.00006-01 

0*0 

49 

2.63706 

01 

3.00006-01 

6.70006-01 

SO 

2.63706 

01 

0.0 

6.70006-01 

SI 

2.80U06 

01 

0.0 

0.0 

S2 

2 .80006 

01 

0.0 

6.70006-01 

S3 

1.8000* 

01 

0.0 

6.70006-01 

S4 

1.90006 

01 

0.0 

1.92006  00 

ss 

1 .80006 

01 

0.0 

3.70006  00 

96 

1.60006 

01 

0.0 

5.77006  00 

97 

1.80006 

01 

0.0 

8.00006  00 

SO 

1.8300* 

01 

2.00006-01 

6.7000F-01 

99 

1.83006 

01 

2.00006-01 

1.92006  00 
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60 

1 .83007 

01 

2.00007-01 

3.70007 

0(3 

61 

1.83007 

01 

2.00007-01 

5.77JC* 

00 

62 

L.B300E 

01 

2.00007-01 

8.00007 

00 

63 

1.9040^ 

01 

3.30007-01 

6.70007- 

01 

64 

U90407 

01 

3.3000«-01 

1.92007 

00 

6S 

1.9040- 

01 

3.30007-01 

3.70007 

00 

66 

1.9040F 

01 

3.30007-01 

5.7700= 

00 

67 

U9040E 

01 

3.3000F-01 

8.0000E 

00 

66 

2.03607 

01 

3.3000F-01 

6. 70007-01 

69 

2.0300E 

01 

i.3000r-Ul 

1.92067 

00 

70 

2.J220F 

01 

3.3000E-01 

3.7000F 

CO 

71 

2.0170e 

01 

3.3000F-01 

5.77007 

uo 

72 

2.00B0E 

01 

3.3000«-01 

8.00007 

00 

73 

2.20607 

01  . 

1.30U0F-01 

6.7000g- 

•  J1 

74 

2.|950f 

oi 

3.3000<-01 

1.92U0E 

uo 

75 

2.l830f 

01 

3.3000^-01 

3.7oac<^ 

CO 

76 

2.17007 

01 

3.3000*-01 

5.77007 

00 

77 

2.1540E 

31 

3.3000^-01 

8.00007 

uo 

78 

2.3970e 

01 

3.30007-01 

6.7000E-01 

79 

2.3B30* 

01 

3.30007-01 

1* 92007 

00 

80 

2.36307 

01 

3.30C07-01 

3.70006 

00 

81 

2.3400* 

01 

3.30007 -01 

5. 770C7 

00 

"2 

2.31607 

01 

3.30007-01 

a. 00007 

00 

83 

2.63707 

Cl 

0.0 

6.700GE-01 

84 

2.62207 

01 

0.0 

1 .92007 

00 

85 

2.60407 

01 

0.0 

3.70007 

00 

86 

2.56207 

01 

0.0 

5.7700« 

00 

87 

2.55807 

01 

0.0 

9.0000F 

00 

«9 

1.00007 

50 

0.0 

0.0 

J 

31 

J2 

J3 

J4 

1 

1 

2 

3 

1 

2 

t 

3 

4 

1 

3 

1 

4 

5 

1 

4 

1 

5 

6 

1 

5 

2 

7 

6 

a 

6 

3 

a 

9 

4 

7 

4 

9 

10 

5 

8 

5 

10 

u 

6 

9 

7 

12 

13 

6 

10 

6 

13 

14 

9 

11 

9 

14 

15 

10 

12 

10 

15 

16 

11 

13 

12 

IT 

16 

13 

14 

13 

16 

19 

14 

15 

14 

19 

20 

15 

16 

15 

20 

21 

16 

17 

17 

22 

23 

16 

16 

16 

23 

24 

19 

19 

19 

24 

25 

20 

20 

20 

25 

26 

21 

21 

22 

27 

26 

23 

22 

23 

26 

26 

24 

23 

24 

26 

29 

25 

24 

25 

29 

30 

26 

25 

29 

31 

31 

30 

26 

27 

32 

33 

26 

27 

20 

33 

34 

29 

26 

29 

34 

35 

31 

29 

32 

36 

37 

33 

30 

33 

37 

37 

34 

31 

34 

37 

36 

35 

32 

36 

39 

40 

37 

33 

37 

40 

41 

36 

34 

39 

42 

43 

40 

35 

40 

43 

44 

41 
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36 

62 

65 

66 

63 

37 

63 

66 

67 

66 

38 

65 

60 

63 

66 

39 

66 

69 

50 

67 

60 

60 

51 

52 

69 

61 

69 

52 

52 

50 

2 

62 

53 

50 

59 

56 

63 

56 

59 

60 

55 

66 

55 

60 

61 

56 

6» 

56 

61 

62 

57 

66 

50 

63 

66 

59 

2 

67 

59 

66 

65 

60 

60 

60 

65 

66 

61 

69 

61 

66 

67 

62 

SO 

63 

60 

69 

66 

51 

66 

69 

70 

65 

52 

65 

70 

71 

66 

53 

66 

71 

72 

67 

56 

60 

73 

76 

69 

55 

69 

76 

73 

70 

56 

70 

75 

76 

71 

57 

71 

76 

77 

72 

50 

73 

70 

79 

76 

59 

76 

79 

00 

75 

60 

75 

00 

01 

76 

61 

76 

01 

•2 

77 

62 

70 

03 

•6 

79 

63 

79 

06 

05 

00 

66 

00 

05 

06 

01 

65 

01 

06 

07 

02 

66 

0 

0 

0 

0 

STOP 
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Table  B-2.  Model  Input  Data  Tabulation 

QUICK  TURN  WITH  STRUT  •!  N>.5 

MODEL  DATA  PAGE  1 


1 

8.0000E 

00 

0.0 

3.75006 

00 

8.88006 

00 

0.0 

4.17006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

SO 

2 

8.8800E 

00 

4. 20006-01 

4. 1 7006 

00 

8.00006 

00 

0.0 

3.75006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

SO 

2 

8.0000E 

00 

0.0 

3.75006 

00 

8.88006 

00 

4.20006-01 

4.17006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

SO 

2 

8.88006 

00 

4.20006-01 

3.75006 

00 

8.00006 

00 

0.0 

3.75006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

50 

3 

8.00006 

00 

0.0 

3.75006 

00 

8.88006 

00 

4.20006-01 

3.75006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

50 

2 

8.88006 

00 

4.20006-01 

3.33006 

00 

8.00006 

00 

0.0 

3.75006 

00 

1.00006 

50 

1.00006 

50 

l.OOOOE 

SO 

4 

8.0000E 

00 

0.0 

3.75006 

00 

8.88006 

00 

4.20006-01 

3.33006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

SO 

2 

8.88006 

00 

0.0 

3.33006 

00 

8.00006 

00 

0.0 

3.75006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

50 

5 

8.88006 

00 

0.0 

4.17006 

00 

9.78006 

00 

0.0 

4.17006 

00 

1.00006 

SO 

1.00006 

SO 

l.OOOOE 

50 

2 

9.78006 

00 

4.20006-01 

4.17006 

00 

8.88006 

00 

4.20006-01 

4.17006 

00 

1.00006 

50 

1.00006 

50 

l.OOOOE 

SO 

6 

8.88006 

00 

4.20006-01 

4.17006 

00 

9.78006 

00 

4.20006-01 

4.17006 

00 

1.00006 

SO 

1.00006 

SO 

l.OOOOE 

50 

2 

9.78006 

00 

4.20006-01 

3.75006 

00 

8.88006 

00 

4.20006-01 

3.75006 

00 

1.00006 

50 

l.OUOOE 

SO 

l.OOOOE 

50 

7 

8.88006 

00 

4.20006-01 

3.75006 

00 

9.78006 

00 

4.20006-01 

3.75006 

00 

1.00006, 

50 

1.00006 

50 

l.OOOOE 

SO 

2 

9.78006 

00 

4.20006-01 

3.33006 

00 

8.88006 

00 

4. 2 0006-0 I 

3.33006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

50 

8 

8.88006 

00 

4.20006-01 

3.33006 

00 

9.78006 

00 

4.20J0E-01 

3.33006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

SO 

2 

9.78006 

00 

0.0 

3.33006 

00 

8.88006 

00 

0.0 

3.33006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

50 

9 

9.73006 

00 

0.0 

4.17006 

00 

1.07506 

01 

0.0 

4.17006 

00 

1.00006 

SO 

1.00006 

SO 

l.OOOOE 

50 

2 

1.07506 

01 

4. 20006-01 

4.17006 

00 

9.78006 

00 

4.20006-01 

4.17006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

SO 

10 

9.78006 

00 

4.20006-01 

4.17006 

00 

1.07506 

01 

4.20006-01 

4.17006 

00 

1.00006 

SO 

1.00006 

50 

l.OOOOE 

SO 

2 

1.07506 

01 

4.20006-01 

3.75006 

00 

9.78006 

00 

4.20006-01 

3.75006 

00 

1.00006 

50 

1.00006 

50 

l.OOOOE 

50 

11 

9.78006 

00 

4.20006-01 

3.75006 

00 

1.07506 

01 

4.20006-01 

3.75006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

50 

2 

1.07506 

01 

4.20006-01 

3.33006 

00 

9.78006 

00 

4.20006-01 

3.33006 

00 

1.00006 

SO 

1.00006 

SO 

l.OOOOE 

50 

12 

1.07506 

01 

0.0 

4.17006 

00 

1.18506 

01 

0.0 

4.17006 

00 

1.00006 

SO 

1.00006 

50 

l.OOOOE 

SO 

2 

1.18506 

01 

4.20006-01 

4.17006 

00 

1.07506 

01 

4.20006-01 

4.17006 

00 

1.00006 

SO 

1.00006 

SO 

l.OOOOE 

SO 

13 

1.07506 

01 

4.20006-01 

4.17006 

00 

1.18506 

01 

4.20006-01 

4.17006 

00 

1.00006 

50 

1.00006 

50 

l.OOOOE 

50 

2 

1.18506 

01 

4.20006-01 

3.75006 

00 

1.07506 

01 

4.20006-01 

3.75006 

00 

1.00006 

SO 

1.00006 

50 

l.OOOOE 

SO 

14 

1.07506 

01 

4.20006-01 

3.75006 

00 

1.18506 

01 

4.20006-01 

3.75006 

00 

1.00006 

SO 

1.00006 

SO 

l.OOOOE 

50 

2 

1.1850E 

01 

4.20006-01 

3.33006 

00 

1.07506 

01 

4.20006-01 

3.33006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

SO 

13 

1.07506 

01 

4.20006-01 

3.33006 

00 

1.18506 

01 

4.20006-01 

3.33006 

00 

1.00006 

SO 

1.00006 

SO 

l.OOOOE 

50 

2 

I. 18506 

01 

0.0 

3.33006 

00 

1.07506 

01 

0.0 

3.33006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

SO 

16 

1.18506 

01 

0.0 

4.17006 

00 

1.32106 

01 

0.0 

4.17006 

00 

1.00006 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.32106 

01 

4.20006-01 

4.17006 

00 

1.18506 

01 

4.20006-01 

4.17006 

00 

1.00006 

50 

1.00006 

SO 

l.OOOOE 

SO 

17 

1.18506 

01 

4.20006-01 

4.17006 

00 

1.32106 

01 

4.20006-01 

4.17006 

00 

1.00006 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.32106 

01 

4.20006-01 

3.75006 

00 

1.18506 

01 

4.20006-01 

3.75006 

00 

1.00006 

50 

l.OOOOE 

SO 

l.OOOOE 

so 

18 

1.18506 

01 

4.20006-01 

3.75006 

00 

1.32106 

01 

4.20006-01 

3.75006 

00 

1.00006 

50 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

1.32106 

01 

4.2000E-01 

3.33006 

00 

1.18506 

01 

4.20006-01 

3.33006 

00 

1.00006 

50 

l.OOOOE 

50 

l.OOOOE 

50 

19 

1.18506 

01 

4.20006-01 

3.33006 

00 

1.32106 

01 

4.20006-01 

3.33006 

00 

1.00006 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.32106 

01 

0.0 

3.33006 

00 

1.18506 

01 

0.0 

3.33006 

00 

1.00006 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

20 

9.78006 

00 

0.0 

3.33006 

00 

9.98006 

00 

0.0 

3.00006 

00 

1.00006 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

9.98006 

00 

4.20006-01 

3.00006 

00 

9.78006 

00 

4.20006-01 

3.33006 

00 

1.00006 

50 

l.OOOOE 

50 

l.OOOOE 

50 

21 

9.78006 

00 

4.20006-01 

3.33006 

00 

9.98006 

00 

4.20006-01 

3.00006 

00 

1.00006 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.04506 

01 

4.20006-01 

3.00006 

00 

9.78006 

00 

4.20006-01 

3.33006 

00 

1.00006 

50 

1.00006 

so 

l.OOOOE 

SO 

22 

9.78006 

00 

4.20006-01 

3.33006 

00 

1.04506 

01 

4.20006-01 

3.00006 

00 

1.00006 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.07506 

01 

4.20006-01 

3.33006 

00 

9.78006 

00 

4.20006-01 

3.33006 

00 

1.00006 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

23 

1.07506 

01 

4.20006-01 

3.33006 

00 

1.04506 

01 

4.20006-01 

3.00006 

00 

1.00006 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.09606 

01 

4.20006-01 

3.00006 

00 

1.07506 

01 

4.20006-01 

3.33006 

00 

1.00006 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

24 

1.07506 

01 

4.20006-01 

3.33006 

00 

1.09606 

01 

4.20006-01 

3.00006 

00 

1.00006 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.09606 

01 

0.0 

3.00006 

00 

1.07506 

01 

0.0 

3.33006 

00 

1.00006 

SO 

1.00006 

50 

l.OCOOE 

SO 

25 

9.98006 

00 

0.0 

3.00006 

00 

1.02906 

01 

0.0 

2.50006 

00 

1.00006 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.02906 

01 

4.20006-01 

2.50006 

00 

9.98006 

00 

4.20006-01 

3.00006 

00 

1.00006 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 
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26 

9.98 OOF 

00 

4.2000E-01 

3.0000E 

00 

1.0290E 

01 

4.2000E-01 

2.S000E 

00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.0770E 

01 

4.2000E-01 

2.S000E 

00 

1.04S0E 

01 

4.2000E-01 

3.0000E 

00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

27 

1.04SCE 

01 

4.2000E-01 

3.0000E 

00 

l.OTTOE 

01 

4.200UE-01 

2.S000E 

00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.1260F 

01 

4.2000E-01 

2.5000E 

00 

1.0960E 

01 

4.2000E-01 

3.0000E 

00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

28 

1.0960F 

01 

4.2000E-01 

3.0000E 

00 

1.1260E 

01 

4.2000E-01 

2.S000E 

00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.1260E 

01 

0.0 

2.S000E 

00 

1.096UE 

01 

0.0 

3. 0000 E 

00 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

SO 

29 

1.0290E 

01 

0.0 

2.S000E 

00 

1.0600E 

01 

0.0 

2.0000E 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.0600E 

01 

4.2000E-01 

2.0000E 

00 

1.U290E 

01 

4.2000E-01 

2.S000E 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

10 

1.0290E 

01 

4.2000E-01 

2.500aE 

00 

1.0600E 

01 

4.2000E-01 

2.0000E 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.1080b 

01 

4.2000E-01 

2.0000E 

00 

1.07  706 

01 

4.2000E-01 

2.5000E 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

il 

1.0770E 

01 

4.2000E-01 

2.S000E 

00 

1.1080E 

01 

4.2000E-01 

2.0000E 

00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

1.1S70E 

01 

4.2000E-01 

2.0000E 

00 

1.1260E 

01 

4.20UOE-01 

2.S000E 

00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

50 

32 

1.1260E 

01 

4.2000E-01 

2.5000E 

00 

I.ISTOE 

01 

4.2000E-01 

2.0000E 

00 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.1S70E 

01 

0.0 

2.0000E 

00 

1.1260E 

01 

0.0 

2.S000E 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

50 

33 

1.0600E 

01 

0.0 

2.0000E 

00 

1.0910E 

01 

0.0 

l.SOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.091UE 

01 

4.2000E-01 

1.5000E 

00 

1.0600E 

01 

4.2000E-01 

2.0000E 

00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

34 

1.0600E 

01 

4.2000E-01 

2.0000E 

00 

1.0910E 

01 

4.2000E-01 

l.SOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

1.1400E 

01 

4.2000E-01 

1.5000E 

00 

1.1080E 

01 

4.2000E-01 

2. 0000 E 

00 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

SO 

35 

1.  1080E 

01 

4.2000E-01 

2.0000E 

00 

1.1400E 

01 

4.2000E-01 

l.SOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.1880F 

01 

4.2000E-01 

l.SOOOE 

00 

I.ISTOE 

01 

4.2000E-01 

2.0000E 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

50 

36 

I.ISTOE 

01 

4.2000E-01 

2.00C0E 

00 

1.18B0E 

01 

4.2000E-01 

l.SOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

1.1880E 

01 

0.0 

l.SOOOE 

00 

I.ISTOE 

01 

0.0 

2.0000E 

00 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

SO 

37 

1.0910E 

01 

0.0 

l.SOOOE 

00 

1.1210E 

01 

0.0 

l.OOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

? 

1.1210E 

01 

4.2000E-01 

l.OOOOE 

00 

1.0910E 

01 

4.2000E-01 

l.SOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

38 

1.0910F 

01 

4.2000E-01 

l.SOOOE 

00 

1.1210E 

01 

4.2000E-01 

l.OOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

1.1710F 

01 

4.2000E-01 

l.OOOOE 

00 

1.1400E 

01 

4.2000E-01 

l.SOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

so 

39 

1.1400E 

01 

4.2000E-01 

l.SOOOE 

00 

1.1710E 

01 

4.2000E-01 

l.OOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

so 

2 

1.2190E 

01 

4.2000E-01 

l.OOOOE 

00 

1.1880E 

01 

4.2000E-01 

l.SOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

so 

40 

1.1680E 

01 

4.2000E^01 

l.SOOOE 

00 

1.2190E 

01 

4.2000E-01 

l.OOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.2190E 

01 

0.0 

l.OOOOE 

00 

1.1S80E 

01 

0.0 

l.SOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

so 

41 

1.1210E 

01 

0.0 

l.OOOOE 

00 

1.1530E 

01 

0.0 

S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

so 

2 

1.1530E 

01 

S.OOOOE-Ol 

S.OOOOE-Ol 

1.1210E 

01 

4.2000E-01 

l.OOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

so 

42 

1.1210E 

01 

4.2000E-01 

l.OOOOE 

00 

1.1530E 

01 

S.OOOOE-Ol 

S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

so 

2 

1.2030E 

01 

5.0000E-01 

5.0000E- 

■01 

1.1710E 

01 

4.2Q0OE-01 

l.OOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

so 

43 

1.1710E 

01 

4.2000E-01 

l.OOOOE 

00 

1.2030E 

01 

S.OOOOE-Ol 

S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

so 

2 

1.2500E 

01 

S.OOOOE-Ol 

S.OOOOE-Ol 

1.2190E 

01 

4.2000E-01 

l.OOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

50 

44 

1.2190E 

01 

4.2000E-01 

l.OOOOE 

00 

1.2SOOE 

01 

S.OOOOE-Ol 

S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

so 

2 

1.2S00E 

01 

0.0 

5.0000E- 

■01 

1.2190E 

01 

0.0 

l.OOOOE 

00 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

50 

45 

1.2500F 

01 

0.0 

-5.0000E- 

01 

1.2SOOE 

01 

S.OOOOE-Ol 

-S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.2130E 

01 

S.OOOOE-Ol 

-S.OOOOE-Ol 

1.2130E 

01 

0.0 

-S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

so 

46 

1.2130F 

01 

0.0 

-S.OOOOE- 

■01 

1.2130E 

01 

S.OOOOE-Ol 

-S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.1830E 

01 

S.OOOOE-Ol 

0.0 

1.1B30E 

01 

0.0 

0.0 

1.0000E 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

47 

1.1B30E 

01 

0.0 

0.0 

1.1830E 

01 

S.OOOOE-01 

0.0 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.1530E 

01 

S.OOOOE-Ol 

S.OOOOF- 

01 

1.1S30E 

01 

0.0 

S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

SO 

48 

1.2130E 

01 

S.OOOOE-Ol 

-5.000OE- 

01 

1.2500E 

01 

S.OOOOE-Ol 

-S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.2270E 

01 

S.OOOOE-Ol 

0.0 

1.1830E 

01 

S.OOOOE-Ol 

0.0 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

49 

1.1830E 

01 

S.OOOOE-Ol 

0.0 

1.2270E 

01 

S.OOOOE-Ol 

0.0 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.2030E 

01 

S.OOOOE-Ol 

S.OOOOE-Ol 

1.1S30E 

01 

S.OOOOE-Ol 

S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

SO 

1.2500E 

01 

S.OOOOE-Ol 

-S.OOOOE- 

■01 

1.3240E 

01 

S.OOOOE-Ol 

-S.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.3130E 

01 

S.OOOOE-Ol 

0.0 

1.2270E 

01 

S.OOOOE-Ol 

0.0 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

SO 
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DAT*  PAGE 

1.2270E  01 

3 

5.0000E-01  0.0 

1.3130E 

01 

S.OOOOE-Ol  0.0 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.2500E 

01 

5.0000E-01  5.0000E-01 

1.2030E 

01 

S.OOOOE-Ol  S.OOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

52 

1.3240E 

01 

5.0000E-01  -5.0000E-01 

1.3820E 

01 

S.OOOOE-Ol  -S.OOOOE-Ol 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.3820E 

01 

5.0000E-01  0.0 

1.3130E 

01 

S.OOOOE-Ol  0.0 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

53 

1.3130E 

01 

5.0000E-01  0.0 

1.3820E 

01 

S.OOOOE-Ol  0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.3820E 

01 

S.OOOOE-01  5.0000E-01 

1.3000E 

01 

S.OOOOE-Ol  S.OOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

54 

1.3130E 

01 

5.0000E-01  0.0 

1.3000E 

01 

S.OOOOE-Ol  S.OOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.2500E 

01 

S.OOOOE-01  5.0000E-01 

1.3130E 

01 

S.OOOOE-Ol  0.0 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

55 

1.2500E 

01 

5.0000E-01  5.0000E-01 

1.3000E 

01 

S.OOOOE-Ol  S.OOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.3000E 

01 

0.0  5.0000E-01 

1.2S00E 

01 

0.0  S.OOOOE-Ol 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

56 

1.3000E 

01 

5.0000E-01  S.OOOOE-01 

1.3820E 

01 

S.OOOOE-Ol  S.OOOOE-Ol 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.3820E 

01 

0.0  5.0000E-01 

1.3000E 

01 

0.0  S.OOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

57 

1.2500E 

01 

0.0  -5.0000E-01 

1.2750E 

01 

0.0  -l.OOOOE  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.27S0E 

01 

S.OOOOE-01  -l.OOOOE  00 

1.2S00E 

01 

S.OOOOE-01  -S.OOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

58 

I.2S00E 

01 

5.0000E-01  -S.OCOOE-01 

1.2750E 

01 

S.OOOOE-01  -l.OOOOE  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.3320E 

01 

S.OOOOE-01  -l.OOOOE  00 

1.3240E 

01 

S.OOOOE-Ol  -S.OOOOE-Ol 

l.OOOOE 

SO 

l.OOOOE 

so 

l.OOOOE 

SO 

59 

1.3240E 

01 

5.0000E-01  -5.0000E-01 

1.3320E 

01 

S.OOOOE-Ol  -l.OOOOE  00 

l.OOOOE 

SO 

l.OOOOE 

so 

l.OOOOE 

50 

2 

1.3820E 

01 

5.0000E-01  -l.OOOOE  00 

1.3820E 

01 

S.OOOOE-01  -S.OOOOE-Ol 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

60 

1.3820E 

01 

5.0000E-01  -9.0000E-01 

1.3820E 

01 

S.OOOOE-Ol  -l.OOOOE  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.3820E 

01 

0.0  -l.OOOOE  00 

1.3820E 

01 

0.0  -S.OOOOE-Ol 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

61 

1.2750E 

01 

0.0  -l.OOOOE  00 

1.3000E 

01 

0.0  -l.SSOOE  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.3000E 

01 

5.0000E-01  -1.5900E  00 

1.2TS0E 

01 

S.OOOOE-Ol  -l.OOOOE  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

62 

1.2750E 

01 

5.0000E-01  -l.OOOOE  00 

1.3000E 

01 

S.OOOOE-Ol  -l.SSOOE  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.3400E 

01 

S.OOOOE-01  -1.5500E  00 

1.3320E 

01 

S.OOOOE-01  -l.OOOOE  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

63 

1. 3320E 

01 

S.OOOOE-Ol  -l.OOOOE  00 

1.3400E 

01 

S.OOOOE-Ol  -l.SSOOE  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.3a20E 

01 

S.OOOOE-01  -1.5500E  00 

1.3820E 

01 

S.OOOOE-Ol  -l.OOOOE  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

64 

1.  3820E 

01 

S.OOOOE-Ol  -l.OOOOE  00 

1.3820E 

01 

S.OOOOE-Ol  -l.SSOOE  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE' 

so 

2 

1.3820E 

01 

0.0  -1.5500E  00 

1.3820E 

01 

0.0  -l.OOOOE  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

so 

65 

1.3a00E 

01 

0.0  -1.5500E  00 

1.3100E 

01 

0.0  -2.2500E  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

so 

2 

1.3100E 

01 

4.2000E-01  -2.2500E  00 

1.3000E 

01 

S.OOOOE-01  -l.SSOOE  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

66 

1.3000E 

01 

S.OOOOE-Ol  -1.5500E  00 

1.3100E 

01 

4.2000E-01  -2.2S00E  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.34  TOE 

01 

4.2000E-01  -2.2500E  00 

1.3400E- 

01 

S.OOOOE-Ol  -l.SSOOE  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

67 

1.3400E 

01 

S.OOOOE-Ol  -1.5500E  00 

1.3470E 

01 

4.2000E-01  -2.2S00E  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

so 

2 

1.3820E 

01 

4.2000E-01  -2.2500E  00 

1.3820E 

01 

S.OOOOE-Ol  -l.SSOOE  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

so 

68 

1.3820E 

01 

S.OOOOE-Ol  -1.5S00E  00 

1.3820E 

01 

4.2000E-01  -2.2SOOE  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

so 

2 

1.3820E 

01 

0.0  -2.2500E  00 

1.3820E 

01 

0.0  -l.SSOOE  DO 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

so 

69 

1.3100E 

01 

0.0  -2.2S00E  00 

1.32 DOE 

01 

0.0  -2.9S00E  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

so 

2 

1.3200E 

01 

4.2000E-01  -2.9500E  00 

1.3100E 

01 

4.2000E-01  -2.2S00E  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

70 

1.3100E 

01 

4.2000E-01  -2.2S00E  00 

1.3200E 

01 

4.2000E-01  -2.9S00E  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

so 

2 

1.3SS0E 

01 

4.2000E-01  -2.9500E  00 

1.3470E 

01 

4.2000E-01  -2.2S00E  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

so 

71 

1.34 TOE 

01 

4.2000E-01  -2.2500E  00 

1.3S50E 

01 

4.2000E-01  -2.9S00E  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

so 

2 

1.3820E 

01 

4.2000E-01  -2'.9S00E  00 

1.3820E 

01 

4.2000E-01  -2.2S00E  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

72 

1.3820E 

01 

4.2000E-01  -2.2500E  00 

1.3820E'  01 

4.2000E-01  -2.9S00E  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

I.3820E 

01 

0.0  -2.9500E  00 

1.3820E 

01 

0.0  -2.2S00E  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

so 

73 

1.2e50E 

01 

0.0  0.0 

1.3T50E 

01 

3.7000E-01  0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

so 

2 

1.3T50E 

01 

3.6000E-01  l.OOOOE-Ol 

1.20S0E 

01 

0.0  0.0 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

so 

74 

1.2850E 

01 

0.0  0.0 

1.37S0E 

01 

3.6000E-01  l.OOOOE-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

so 

2 

1.3T50E 

01 

2.6000E-01  2.6000E-01 

1.2850E 

01 

0.0  0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

75 

1.2850E 

01 

0.0  0.0 

1.3750E 

01 

2.6000E-01  2.6000E-01 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

so 

2 

1.37S0E 

01 

l.OOOOE-01  3.6000E-01 

1.2050E 

01 

0.0  0.0 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

so 

AEDC-TR-75-75 


N».5 


Table  B-2.  Continued 


00 

o 


QUICK  TURN  WITH  STRUT  *1 
MOrEL  DATA  PACE  4 


76 

1.2850E 

01 

0.0 

0.0 

1.3750E 

01 

l.OOOOE-01 

3. 60006-01 

1.00006 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.3750E 

01 

0.0 

3.7000E-01 

1.2850E 

01 

0.0 

0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

77 

1.3750E 

01 

3.7000E-ai 

0.0 

1.42 TOE 

01 

5.7000E-01 

0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.42  TOE 

01 

S.4000E-01 

1.4000E-01 

1.3750E 

01 

3.6000E-01 

l.OOOOE-01 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

78 

1.37S0E 

01 

3.6000E-01 

l.OOOOE-01 

1.4270E 

01 

5.4000E-01 

1.4000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OGOOE 

50 

2 

1.42  TOE 

01 

4.  lOOOE-01 

4.  lOOOE-01 

1.3750E 

01 

2.6000E-01 

2. 6000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

79 

1.  3750E 

01 

2.6000E-01 

2.6000E-01 

1.42 TOE 

01 

4.1000E-01 

4. 1000 E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.4270E 

01 

1.4000E-01 

5.4000E-01 

1.3750E 

01 

l.OOOOE-01 

3.60006-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

80 

1.3TS0E 

01 

l.OOOOE-01 

3.6000E-01 

1.4270E 

01 

1.4000E-01 

5. 4000 E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.4270E 

01 

0.0 

5.7000E-01 

1.3750E 

01 

0.0 

3.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

81 

1.4270E 

01 

S.7000E-01 

0.0 

1.4850E 

01 

8.0000E-01 

0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.4850E 

01 

T.7000E-01 

2.1000E-01 

1.4270E 

01 

5.4000E-01 

1.40006-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

82 

1.42  TOE 

01 

5.4000E-01 

1.4000E-01 

1.4B50E 

01 

T.TOOOE-Ol 

2. 1000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.4850E 

01 

5.6000E-01 

5.6000E-01 

1.4270E 

01 

4.1000E-01 

4. 1000 E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

83 

1.42  TOE 

01 

4.1000E-01 

4.1000E-01 

1.4850E 

01 

5.6000E-01 

5.6000 E-01 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.4B50E 

01 

2.1000E-01 

T.TOOOE-Ol 

1.4270E 

01 

1.4000E-01 

5.4000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

84 

1.4270E 

01 

1.4000E-01 

5.4000E-01 

1.4850E 

01 

2.1000E-0I 

T.TOOOE-Ol 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.4850E 

01 

0.0 

8.0000E-01 

1.4270E 

01 

0.0 

5. 7000 E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

85 

1.4850E 

01 

8.0000E-01 

0.0 

1.5900E 

01 

8.0000E-01 

0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

90 

2 

1.5900E 

01 

T.TOOOE-Ol 

2.1000E-01 

1.4850E 

01 

T.TOOOE-Ol 

2. 1000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

86 

1.4850E 

01 

7.7000E-01 

2.1000E-01 

1.S900E 

01 

T.TOOOE-Ol 

2.1000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.5900E 

01 

5.6000E-01 

5.6000E-01 

1.48S0E 

01 

5.6000E-01 

5.6000E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

87 

1.4850E 

01 

5.6000E-01 

5.6000E-01 

1.5900E 

01 

5.6000E-01 

5.60U0E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.  5900E 

01 

2.  lOOOE-01 

T.TOOOE-Ol 

1.4850e 

01 

2.1000E-01 

T.TOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

88 

I.4850E 

01 

2.  lOOOE-Ol 

T.TOOOE-Ol 

1.5900E 

01 

2.1000E-01 

T.TOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

90 

l.OOOOE 

50 

2 

1.S900E 

01 

0.0 

8.0000 E-01 

1.4850E 

01 

0.0 

8.0000 E-Ol 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

89 

1.S900E 

01 

8.0000E-01 

0.0 

1.6030E 

01 

6.7000E-01 

0.0 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.  6030E 

01 

6.400UE-01 

l.TOOOE-Ol 

1.5900E 

01 

7.7000E-01 

2.10006-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

90 

1.5900E 

01 

T.TOOOE-Ol 

2.1000E-01 

1.6030E 

01 

6.4000E-01 

l.TOOOE-Ol 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.6030E 

01 

4.8000E-01 

4.8000E-01 

1.5900E 

01 

5.6000E-01 

5.6000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

91 

1.S900E 

01 

5. 6000 E- 01 

5.6000E-01 

1.6030E 

01 

4.B000E-01 

4.8000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.6030E 

01 

l.TOOOE-Ol 

6.4000E-01 

1.5900E 

01 

2.1000E-01 

T.TOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

92 

1.S900E 

01 

2.1000E-01 

T.TOOOE-Ol 

1.6030E 

01 

l.TOOOE-Ol 

6.4000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.6030E 

01 

0.0 

6.7000E-01 

1.5900E 

01 

0.0 

8.0000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

93 

1.6030E 

01 

6.7000E-01 

0.0 

i.T300E 

01 

6.7000E-ai 

0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.7300E 

01 

6.7000E-01 

4.S000E-01 

1.6030E 

01 

6.4000E-01 

l.TOOOE-Ol 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

94 

1.6030E 

01 

6.4000E-01 

l.TOOOE-Ol 

1.7300E 

01 

6.7000E-01 

4.50006-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.7300E 

01 

6.7000E-01 

4.5000E-01 

1.6030E 

01 

4.8000E-01 

4. 8000 E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

95 

1.6030E 

01 

4.8000E-01 

4.8000E-01 

1.7300E 

01 

6.7000E-01 

4. 50006-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.7300E 

01 

4.S0O0E-01 

6.7000E-01 

1.6030E 

01 

l.TOOOE-Ol 

6.40006-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

96 

1.6030E 

01 

l.TOOOE-Ol 

6.4000E-01 

1.7300E 

01 

4.5000E-01 

6.T0O0E-O1 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.7300E 

01 

0.0 

6.7000E-01 

1.6030E 

01 

0.0 

6.70006-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

97 

1.7300E 

01 

4.5a00E-01 

6.7000E-01 

1.8000E 

01 

0.0 

6.70006-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.8000E 

01 

0.0 

6.7000E-01 

1.7300E 

01 

0.0 

6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

98 

1.7300E 

01 

6.7000E-01 

0.0 

1.B300E 

01 

6.T000E-01 

0.0 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.8300E 

01 

6.7000E-01 

9.6000E-01 

1.7300E 

01 

6.7000E-01 

4.5000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

99 

1.7300E 

01 

6.7000E-01 

4.5000E-01 

1.8300E 

01 

6.7000E-01 

5.6000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.8300E 

01 

5.6000E-01 

6.  7000 E-01 

1.7300E 

01 

4.5000E-01 

6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

100 

1.7300E 

01 

4.S000E-01 

6.7000E-01 

1.B300E 

01 

9.6000E-01 

6.7000 E-Ol 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.8300E 

01 

2.0000E-01 

6.7000E-01 

1.8000E 

01 

0.0 

6.7000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 
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101 

1.83008 

01 

6.7000E-01 

0.0 

1.9040E 

01 

6.T000E-01 

0.0 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

50 

2 

1.90  40E 

01 

6.7000E-01 

6.7000E-01 

1.8300E 

01 

6.7000E-01 

5.60006-01 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

SO 

102 

1.8300E 

01 

6.7000E-01 

5.6000E-01 

1.9040E 

01 

6.7000E-01 

6.70006-01 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

SO 

2 

1.9040E 

01 

6.7000E-01 

6.7000E-01 

1.8300E 

01 

5.6000E-01 

6.70006-01 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

SO 

103 

1.8300E 

01 

5.6000E-01 

6.7000E-01 

1.9040E 

01 

6.7000E-01 

6.7000E-01 

I.OOOOE 

SO 

I.OOOOE 

SO 

I.OOOOE 

SO 

2 

1.9040E 

01 

3.3000E-01 

6.TOOOE-01 

1.8300E 

01 

2.0000E-01 

6.7000E-01 

I.OOOOE 

SO 

I.OOOOE 

SO 

I.OOOOE 

SO 

104 

1.9040E 

01 

6.ToaoE-ai 

0.0 

2.0S00E 

01 

6.7000E-01 

0.0 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

SO 

2 

2.  0500 E 

01 

6.7000E-01 

6.7000E-01 

1.9040E 

01 

6.7000E-01 

6.70006-01 

I.OOOOE 

50 

I.OOOOE 

50 

l.OOCOE 

so 

105 

1.9040E 

01 

6.7000E-01 

6.7000E-01 

2.0900E 

01 

6.7000E-01 

6.7000E-01 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

so 

2 

2.0360E 

01 

3.3000E-01 

6.T000E-01 

1.9040E 

01 

3.3000E-01 

6.7000E-01 

I.OOOOE 

SO 

I.OOOOE 

SO 

I.OOOOE 

50 

10b 

2.0S00E 

01 

6.7000E-01 

0.0 

2.2300E 

01 

6.7000E-01 

0.0 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

SO 

2 

2. 2300E 

01 

6.7000E-01 

6.7000E-01 

2.0S00E 

01 

6.7000E-01 

6. 70006-01 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

SO 

107 

2.0500E 

01 

6.7000E-01 

6.TOOOE-01 

2.2300E 

01 

6.TOOOE-01 

6.70006-01 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

so 

2 

2.2060E 

01 

3.3000E-01 

6.7000E-01 

2.0360E 

01 

3.30006-01 

6.70006-01 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

so 

108 

2.2300E 

01 

6.7000E-01 

0.0 

2.4500E 

01 

6.7000E-01 

0.0 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

so 

2 

2.4500E 

01 

6.7000E-01 

6.70Q0E-01 

2.23006 

01 

6.70006-01 

6.70006-01 

I.OOOOE 

50 

l.OOCOE 

50 

I.OOOOE 

so 

109 

2.2300E 

01 

6.7000E-01 

6.7000E-01 

2.4SOOE 

01 

6.7000E-01 

6.7000E-01 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

so 

2 

2. 3970E 

01 

3.3000E-01 

6.7000E-01 

2.2060E 

01 

3.30006-01 

6.7000E-01 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

so 

110 

2.4S00E 

01 

6.7000E-01 

0.0 

2.63706 

01 

3.0000E-01 

0.0 

I.OOOOE 

SO 

I.OOOOE 

SO 

I.OOOOE 

so 

2 

2. *3 TOE 

01 

3.0000E-01 

6.7000E-01 

2.45006 

01 

6.7000E-0I 

6. 70006-01 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

so 

111 

2.4500E 

01 

6.7000E-01 

6.7000E-01 

2.6370E 

01 

3.0000E-01 

6.70006-01 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

50 

2 

2.  63  TOE 

01 

0.0 

6.7000E-01 

2.3970E 

01 

3.  30006-01 

6.70006-01 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

so 

112 

2. 63  TOE 

01 

3.0000E-01 

0.0 

2.8000E 

Ol 

0.0 

0.0 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

50 

2 

2.a000E 

01 

0.0 

6.7000E-01 

2.6370E 

01 

3.0000E-01 

6.70006-01 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

so 

113 

2.63T0E 

01 

3.0000E-ai 

6.T000E-01 

2.8000E 

01 

0.0 

6.70006-01 

I.OOOOE 

SO 

I.OOOOE 

SO 

I.OOOOE 

so 

2 

2.8000E 

01 

0.0 

6.T000E-01 

2.6370E 

01 

0.0 

6.70006-01 

I.OOOOE 

SO 

I.OOOOE 

SO 

I.OOOOE 

so 

114 

1.8000E 

01 

0.0 

6.7000E-01 

1.0300E 

01 

2.0000E-01 

6.70006-01 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

so 

2 

1.8300E 

01 

2.0000E-01 

1.9200E  00 

1.8000E 

01 

0.0 

1.92006  00 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

so 

115 

1.8000E 

01 

0.0 

1.9200E  00 

1.8300E 

01 

2.0000E-01 

1.92006  00 

I.OOOOE 

so 

I.OOOOE 

SO 

I.OOOOE 

so 

2 

1.0300E 

01 

2.0000E-01 

3.7000E  00 

1.8000E 

01 

0.0 

3.70006  00 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

so 

116 

I.OOOOE 

01 

0.0 

3.7000E  00 

1.8300E 

01 

2.00006-01 

3.70006  00 

I.OOOOE 

SO 

I.OOOOE 

SO 

I.OOOOE 

so 

2 

1.8300E 

01 

2.0000E-01 

5.7700E  00 

1.8000E 

01 

0.0 

5.77006  00 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

so 

117 

i.eoooE 

01 

0.0 

5.7700E  00 

1.8300E 

01 

2.00006-01 

5.77006  00 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

so 

2 

1.8300E 

01 

2.0000E-01 

8.0000E  00 

I.8000E 

01 

0.0 

8.00006  00 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

so 

118 

1.8300E 

01 

2.0aOOE-01 

6.7000E-01 

1.9040E 

01 

3.3000E-01 

6.70006-01 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

50 

2 

1.9040E 

01 

3.3000E-01 

1.9200E  00 

1.B300E 

01 

2.0000E-01 

1.92006  00 

I.OOOOE 

SO 

I.OOOOE 

SO 

I.OOOOE 

so 

119 

1.8300E 

01 

2.0000E-01 

1.9200E  00 

1.9040E 

01 

3.3000E-01 

1.92006  00 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

50 

2 

1.9040E 

01 

3.3000E-01 

3.7000E  00 

1.B300E 

01 

2.0000E-01 

3.70006  00 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

50 

120 

1.0300E 

01 

2.0000E-01 

3.T000E  00 

1.9040E 

01 

3.3000E-01 

3.70006  00 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

so 

2 

1.9040E 

01 

3.3000E-01 

5.7700E  00 

1.B300E 

01 

2.0000E-01 

5.77006  00 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

so 

121 

1.8300E 

01 

2.0000E-01 

5.7700E  00 

1.9040E 

01 

3.3000E-01 

5.77006  00 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

50 

2 

I.9040E 

01 

3.3000E-01 

8.0000E  00 

1.8300E 

01 

2.00006-01 

8.00006  00 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

50 

122 

1.9040E 

01 

3.3000E-01 

6.7000E-01 

2.0360E 

01 

3.3000E-01 

6.70006-01 

I.OOOOE 

SO 

I.OOOOE 

SO 

I.OOOOE 

50 

2 

2.0300E 

01 

3.3000E-01 

1.9200E  00 

1.9040E 

01 

3.3000E-01 

1.92006  00 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

50 

123 

1.9040E 

01 

3.3000E-01 

1.9200E  00 

2.0300E 

01 

3.3000E-01 

1.92006  00 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

so 

2 

2.0220E 

01 

3.3000E-01 

3.7000E  00 

1.9040E 

01 

3.3000E-01 

3.70006  00 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

50 

124 

1.9040E 

01 

3.3000E-01 

3.70006  00 

2.0220E 

01 

3.30006-01 

3.70006  00 

I.OOOOE 

SO 

I.OOOOE 

50 

I.OOOOE 

so 

2 

2.  01  TOE 

01 

3.3000E-01 

5.T700E  00 

1.9040E 

01 

3.3000E-01 

5.77006  00 

I.OOOOE 

50 

I.OOOOE 

50 

I.OOOOE 

50 

125 

1.9040E 

01 

3.3000E-01 

5.7700E  00 

2.0170E 

01 

3. 30006-01 

5.77006  00 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

so 

2 

2.00B0E 

01 

3.3000E-01 

8.0000E  00 

1.9040E 

01 

3.3000E-01 

8.00006  00 

I.OOOOE 

50 

I.OOOOE 

SO 

I.OOOOE 

50 

AEOC-TR-75-75 


Table  B-Z  Continued 

UUICK  TURN  WITH  STRUT  *1  N>.5 

MIPEL  DATA  PAGE  6 


126 

2.0360E 

01 

3.3000E-01 

6.7000E-01 

2.2060E 

01 

3.30a0E*01 

6.7000E-01 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

2.  1950E 

01 

3.3000E-01 

1.9200E  00 

2.0300E 

01 

3.3000E-01 

1.9200E  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

127 

2.0300E 

01 

3.3000E-01 

1.9200E  00 

2.1950E 

01 

3.3000E-01 

1.9200E  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

2.  1830E 

01 

3.3000E-01 

3.7000E  00 

2.0220E 

01 

3.3000E-01 

3.700aE  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

128 

2.0220E 

01 

3.3000E-01 

3.T000E  00 

2.1830E 

01 

3.3000E-01 

3.70006  00 

l.OOOOE 

SO 

l.OOUOE 

SO 

l.OOOOE 

50 

2 

2.170UE 

01 

3  .  3000E-01 

5.7700E  00 

2. 01  TOE 

01 

3.3000E-01 

5.T700E  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

129 

2.01  TOE 

01 

3.3000E-01 

5.7T00E  00 

2.1700E 

01 

3.3000E-01 

5.7700E  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

2.1S40E 

01 

3.3000E-01 

O.OOOOE  00 

2.0080E 

01 

3.3000E-01 

8.0000E  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

130 

2.2060E 

01 

3.3000E-01 

6.7000E-01 

2.3970E 

01 

3.3000E-01 

6.7000E-01 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

2.3a30E 

01 

3.3000E-01 

1.9200E  00 

2.19S0E 

01 

3.3000E-01 

1.9200E  00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

131 

2.  195UE 

01 

3.3000E-01 

1.9200E  00 

2.3830E 

01 

3.3000E-01 

1.9200E  00 

l.OOOOE 

so 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

2.3630E 

01 

3. 3000  E>  01 

3.7000E  00 

2.1830E 

01 

3.3000E-01 

3.7000E  00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

50 

132 

2.  1830E 

01 

3.3000E-01 

3.7000E  00 

2.3630E 

01 

3.3000E-01 

3.7000E  00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

2.3400E 

01 

3.3000E-01 

5.T700E  00 

2.1T00E 

01 

3.3000E-01 

S.7700E  00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

50 

133 

2.1700F 

01 

3. 3000 E- 01 

S.7700E  00 

2.3400E 

01 

3.3000E>01 

5.T700E  00 

l.OOOOE 

SO 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

2.31601 

01 

3.3000E-01 

8.0000E  00 

2.1540E 

01 

3.3000E-01 

8.0000E  00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

134 

2.39  701 

01 

3.3000E-01 

6.T000E-01 

2.63T0E 

01 

0.0 

6.7000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

50 

2 

2.6220E 

01 

0.0 

1.9200E  00 

2.3830E 

01 

3.3000E-01 

1.9200E  00 

l.OOOOE 

50 

l.OOOOE 

so 

l.OOOOE 

SO 

135 

2.3830E 

01 

3.3000E-01 

1.9200E  00 

2.6220E 

01 

0.0 

1.9200E  00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

2. 60 40 £ 

01 

0.0 

3.7000E  00 

2.3630E 

01 

3.3000E-01 

3.7000E  00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

136 

2.3630E 

01 

3.3000E-01 

3.7000E  00 

2.6040E 

01 

0.0 

3.7000E  00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

2.5820E 

31 

0.0 

S.7700E  00 

2.3400E 

01 

3.3000E-01 

S.7700E  00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

137 

2.3400F 

01 

3.3000E-01 

5.7700E  00 

2.  5820E 

01 

0.0 

S.TTOOf  00‘ 

1.00006 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

2.5580E 

01 

0.0 

8.0000E  00 

2.3160E 

01 

3.3000E-01 

8.0000E  00 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

138 

1.2850c 

01 

0.0 

0.0 

1.3750E 

01 

3.7000E-01 

0.0 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

50 

2 

1.3750E 

01 

3.6000E-01 

-l.OOOOE-01 

1.2850E 

01 

0.0 

0.0 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

139 

1.2S50F 

01 

0.0 

0.0 

1.3T50E 

01 

3.6000E-01 

-l.OOOOE-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

SO 

2 

1.3750E 

01 

2.6000E-01 

-2.600UE-01 

1.2850E 

01 

0.0 

0.0 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

so 

140 

1.2850E 

01 

0.0 

0.0 

1.3750E 

01 

2.6000E-01 

•2.60006-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

2 

1.3750E 

01 

l.OOOOE-01 

-3.600aE-01 

1.2850E 

01 

0.0 

0.0 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

141 

1.2850E 

01 

0.0 

0.0 

1.3750E 

01 

l.OOOOE-01 

-3.6000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

1.00CC6 

so 

2 

1.3T50E 

01 

0.0 

-3.7000E-01 

1.28S0E 

01 

0.0 

U.O 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

142 

1.3750E 

01 

3.7000E-01 

0.0 

1.42  TOE 

01 

S.7000E-01 

0.0 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

2 

1.4270E 

01 

5.4000E-01 

-1.4000E-01 

1.3750E 

01 

3.60a0E-01 

-l.OOOOE-Ol 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

143 

1.3750E 

01 

3.6000E-01 

-l.OOOOE-01 

1.42T0E 

01 

5.4000E-01 

-1.4000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

2 

1.42  70E 

01 

4.1000E-01 

-4.1000E-01 

1.37S0E 

01 

2.6000E-01 

-2.6000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

144 

1.3750E 

01 

2.6000E-01 

•2.6000E-01 

1.4270E 

01 

4.1000E-01 

-4.1000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

2 

1.4270E 

01 

1.4000E-01 

-S.4000E-01 

1.3750E 

01 

l.OOOOE-01 

-3.6000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

145 

1.3750E 

01 

l.OOOOE-Ol 

-3.6000E-01 

1.4270E 

01 

1.4000E-01 

-5.4000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

2 

1.42  TOE 

01 

0.0 

>5.T000E-01 

1.37S0E 

01 

0.0 

-3.7000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

1 .UOOOE 

so 

146 

1.4270E 

01 

5.7000E-01 

0.0 

1.4850E 

01 

8.0000E-01 

0.0 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

2 

1.4850E 

01 

7.7000E-01 

-2. lOOOE-01 

1.42T0E 

01 

S.4000E-01 

-1.40006-01 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

so 

147 

1.42  TOE 

01 

5.4000E-01 

-1.4000E-01 

1.4e50E 

01 

7.T000E-01 

-2.1000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

2 

1.48  SUE 

01 

5.6000E-01 

-5.6000E-01 

1.4270E 

01 

4.1000E-01 

-4.1000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

148 

1.4270E 

01 

4.1000E-01 

-4.  lOOOE-01 

1.48S0E 

01 

5.6000E-01 

-S. 60006-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

2 

1.4850E 

01 

2.  lOOOE-01 

-7.7000E-01 

1.4270E 

01 

1.4000E-01 

-5.40006-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

149 

1.4270E 

01 

1.400aE-01 

-5.4000E-01 

1.4850E 

01 

2.1000E-01 

-7.7000E-01 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

so 

2 

1.4850E 

01 

0.0 

-8.0000E-01 

1.4270E 

01 

0.0 

-5.7000E-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 

ISO 

1.4850E 

01 

8.  0000 E- 01 

0.0 

1.5900E 

01 

8.0000E~01 

0.0 

l.OOOOE 

so 

l.OOOOE 

50 

l.OOOOE 

so 

2 

1.S900E 

01 

7.7000E-01 

-2.1000E-01 

1.4850E 

01 

7.7000E-01 

-2.10006-01 

l.OOOOE 

so 

l.OOOOE 

so 

l.OOOOE 

so 
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151 

1.4050E 

01 

7.7000E-01  -2.10a0E-01 

1.5900E 

01 

T.TOOOE-01 

-2.1000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.  S900E 

01 

9.6000E>01  -5.6000E-01 

I.4850E 

01 

5.6000E-01 

-5.6000E'01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

152 

1.4850E 

01 

S.6000E-01  -5.6000E-01 

1.S900E 

01 

5.6000E-01 

-5 .6000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.5900E 

01 

2.t0a0E-01  -7.T000E-01 

1.4850E 

01 

2.1000G-0I 

-7.T000E-01 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

SO 

153 

i.4850E 

01 

2.1000E-01  -7.7000E-01 

1.S900E 

01 

2.1000E-01 

-7.7000E-01 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.5900E 

01 

0.0  -8.0000E-01 

1.4050E 

01 

0.0 

-8 .0000 E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

154 

1.5900E 

01 

8.0000E~01  0.0 

1.6030E 

01 

6.7a00E-01 

0.0 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.6030E 

01 

6.4000E-01  -1.7000E-01 

1.5900E 

01 

7.TOOOE-01 

-2.1000E-01 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

155 

1.5900E 

01 

7.7000E-01  -2.1000E-01 

1.6030E 

01 

6.4000E-01 

-1.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.6030E 

01 

4.8000E-01  -4.8000E-01 

1.5900E 

01 

S.6000E-01 

-5. 6000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

156 

1.S900E 

01 

5.6000E-01  -S.6000E-01 

1.6030E 

01 

4.B000E-01 

-4.BOOOE-01 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.6030E 

01 

1.7000E-01  -6.4000E-01 

1.5900E 

01 

2.10UOE-01 

-7.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

157 

1.S900E 

01 

2.1000E-01  -7.7000E-01 

1.6030E 

01 

1.7000E-01 

-6.4000E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.6030E 

01 

0.0  -6.7000E-01 

1.5900E 

01 

0.0 

-B.OOOOE-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

158 

1.6030E 

01 

6.7000E-01  0.0 

1.7300E 

01 

6.7000E-01 

0.0 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.7300E 

01 

6.7000E-01  -4.3000E-01 

1.6030E 

01 

6.4000E-01 

-1.7000  E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

159 

1.6030E 

01 

6.4000E-01  -1.7000E-01 

1.7300E 

01 

6.7000E-ai 

-4.5000E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.7300E 

01 

6.7000E-01  -4.5000E-01 

1.6030E 

01 

4.8000E-01 

-4. 8000 E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

160 

1.6030E 

01 

4.8000E-01  -4.0000E-01 

1.7300E 

01 

6.7000E-01 

-4.5000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.7300E 

01 

4.SOOOE-61  -6.7000E-01 

1.6030E 

01 

1.7000E-01 

-6.4000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

161 

1.6030E 

01 

1.7000E-01  -6.4000E-01 

1.7300E 

01 

4.5000E>01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.7300E 

01 

0.0  -6.7000E>01 

1.6030E 

01 

0.0 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

162 

1.7300E 

01 

4.5000E-01  -6.7000E-01 

l.OOOOE 

01 

0.0 

-6. 7000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

l.OOOOE 

01 

0.0  -6.7000E-01 

1.7300E 

01 

0.0 

-6.7000E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

163 

1.7300E 

01 

6.7000E-01  0.0 

1.8300E 

01 

6.7000E-01 

0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.8300E 

01 

6.7000E-01  -5.6000E-01 

1.7300E 

01 

6.7000E-01 

-4.5000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

164 

1.7300E' 

01 

6.7000E-0L  -4.5000E-01 

1.8300E 

01 

6.7000E-01 

-S.6000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.8300E 

01 

5.6000E-01  -6.7000E-01 

1.7300E 

01 

4.5000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

165 

1.7300E 

01 

4.5000E-01  -6.7000E-01 

1.0300E 

01 

5.6000E-01 

-6, 7000 E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.0300E 

01 

2.0000E-01  -6.7000E-01 

1.8000E 

01 

0.0 

-6.7000E-0i 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

166 

1.0300E 

01 

&.7000E-01  0.0 

1.9040E 

01 

6.7000E-01 

0.0 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.9040E 

01 

6.7000E-01  -6.7000E-01 

1.8300E 

01 

6.7000E-01 

-5.6000E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

167 

I.8300E 

01 

6.7000E-01  -5.6000E~0I 

1.9040E 

01 

6.7000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.9040E 

01 

6.7000E-01  -6.7000E-01 

1.B300E 

01 

5.6000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

168 

1.0300E 

01 

5.6000E-01  -6.7000E-01 

1.9040E 

01 

6.7000E~01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.9040E 

01 

3.3000E-01  -6.7000E-01 

1.8300E 

01 

2.0000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

169 

1.9040E 

01 

6.7000E-01  0.0 

2.0500E 

01 

6.700aE-01 

0.0 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

2.0500E 

01 

6.7000E-01  -6.7000E-01 

1.9040E 

01 

6.7000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

170 

1.9040E 

01 

6.7000E>01  -6.7000E-01 

2.0S00E 

01 

6.7000 E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

2.0360E 

01 

3.3000E-01  -6.7000E-01 

1. 9040E 

01 

3.3000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

171 

2.0500E 

01 

6.7000E-01  0.0 

2.2300E 

01 

6.7000E-01 

0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.2300E 

01 

6.7000E-01  -6.r000E-01 

2.0500E 

01 

6.7000E-OI 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

172 

2.0S0OE 

01 

6.7000E-01  -6.7000E-01 

2.2300E 

01 

6.7000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.2060E 

01 

3.3000E-01  -6.7000E-01 

2.0360E 

01 

3.3000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

173 

2.2300E 

01 

6.7000E>01  0.0 

2.4500E 

01 

6.7000E-01 

0.0 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

2.4500E 

01 

6.7000E-01  -6.7000E-01 

2.2300E 

01 

6.7000G-01 

-6.7000E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

174 

2.2300E 

01 

6.7000E-01  -6.7000E-01 

2.4900E 

01 

6.7000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.  3970E 

01 

3.3000E-01  -6.7000E-01 

2.2060E 

01 

3.3000E-01 

-6.7000E-01 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

175 

2.4SOOE 

01 

6.7000E-Or  0.0 

2.6370E 

01 

3.0000E-01 

0.0 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.6370E 

01 

3.0000E-01  -6.7000E-01 

2.4S00E 

01 

6.7000E-ai 

-«.700aE-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 
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2.4500E  01  6.7000E-01  '6.7000E-01 

2.A370E 

01 

3.00008-01 

-6.70008-01 

1.00008 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

2.63  70E 

01 

0.0  -6.7000E-01 

2.3  970E 

01 

3.3000E-01 

-6.70008-01 

1.00008 

50 

l.OOOOE 

50 

l.OOOOE 

50 

177 

2.6370E 

01 

3.0000E-01  0.0 

2.0000E 

01 

0.0 

0.0 

1.00008 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

2.aoooE 

01 

0.0  -6.7000E>01 

2.6370E 

01 

3.00008-01 

-6.70008-01 

1.00008 

50 

l.OOOOE 

50 

l.OOOOE 

50 

178 

2.63T0E 

01 

3.0000E-01  -6.7000E-01 

2.8000E 

01 

0.0 

-6.70008-01 

1.00008 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

2.8000E 

01 

0.0  -6.7000E-01 

2.6370E 

01 

0.0 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

179 

1.8000E 

01 

0.0  -6.7000E-01 

1.8300E 

01 

2.00008-01 

-6.70008-01 

1.00008 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

1.8300E 

01 

2.0000E-01  -1.9200E  00 

l.SOOOE 

01 

0.0 

-1.92008  00 

l.OOOOE 

50 

l.OOOQE 

50 

l.OOOOE 

50 

180 

1.8000E 

01 

0.0  -1.9200E  00 

1.8300E 

01 

2.0000E-01 

-1.92008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.8300E 

01 

2.0000E-01  -3.7000E  00 

1.8000E 

01 

0.0 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

181 

1.8000E 

01 

0.0  -3.7000E  00 

1.8300E 

01 

2.00008-01 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.8300E 

01 

2.0000E-01  '•5.7700E  00 

i.eoooE 

01 

0.0 

-S  .77008  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

182 

1.8000E 

01 

0.0  -5.7700E  00 

1.8300E 

01 

2.0000E-01 

-5.77008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

1.8300E 

01 

2.0000E-01  -8.0000E  00 

i.aoooE 

01 

0.0 

-8.00008  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

183 

1.8300E 

01 

2.0000E-01  -6.7000E-01 

1.9040E 

01 

3.30008-01 

-6.70008-01 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

1.9040E 

01 

3.3000E-01  -1.9200E  00 

1.8300E 

01 

2.00008-01 

-1.92008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

184 

1.8  300E 

01 

2.00008-01  -1.9200E  00 

1.9040E 

01 

3.3000E-0I 

-1.9200E  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.9040E 

01 

3.3000E-01  -3.7000E  00 

1.8300E 

01 

2.00008-01 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

185 

I.8300E 

01 

2.0000E-01  -3.7000E  00 

1.9040E 

01 

3.3000E-01 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

1.9040E 

01 

3.3000E-01  -5.7700E  00 

1.8300E 

01 

2.0000E-01 

-S.7700E  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

186 

1.8300E 

01 

2.0000E-01  -S.7700E  00 

1.9040E 

01 

3.30008-01 

-5.77008  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

i.9040E 

01 

3.3000E-01  -8.0000E  00 

1.8300E 

01 

2.0000E-01 

-8.00008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

187 

1.9040E 

01 

3.3000E-01  -6.7000E-01 

2.0360E 

01 

3.3000E-01 

-6.7000E-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

2.0300E 

01 

3.3000E-01  -1.9200E  00 

1.9040E 

01 

3.30008-01 

-1.9200E  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

188 

1.9040E 

01 

3.3000E-01  -1.9200E  00 

2.0300E 

01 

3.3000E-01 

-1.92008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.0220E 

01 

3.3000E-ai  -3.7000E  00 

1.9040E 

01 

3.3000E-01 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

189 

1.9040E 

01 

3.3000E-01  -3.7000E  00 

2.0220E 

01 

3.3000E-01 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

2.0170E 

01 

3.3000E-01  -5.7700E  00 

1.9040E 

01 

3.3000E-01 

-5.77008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

so 

190 

1.9040E 

01 

3.3000E-01  -S.7700E  00 

2.0170E 

01 

3.3000E-01 

-9.7700E  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.0080E 

01 

3.3000E-01  -8.0000E  00 

1.9040E 

01 

3.30008-01 

-8.00008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

191 

2.0360E 

01 

3.3000E-01  -6.7000E-01 

2.2060E 

01 

3.3000E-01 

-6.70008-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

2.  19S0E 

01 

3.3000E-01  -1.9200E  00 

2.0300E 

01 

3.3000E-01 

-1.9200  E  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

192 

2.0300E 

01 

3.3000E-01  -1.9200E  00 

2.1950E 

01 

3.3000E-01 

-1.92008  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

2.1830E 

01 

3.3000E-01  -3.7000E  00 

2.0220E 

01 

3.3000E-01 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

193 

2.0220E 

01 

3.3000E-01  -3.7000E  00 

2.1830E 

01 

3.3000E-01 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.1700E 

01 

3.3000E-01  -5.7700E  00 

2.0170E 

01 

3.30008-01 

-5.7700E  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

194 

2.0170E 

01 

3.3000E-01  -5.7700E  00 

2.1700E 

01 

3.30008-01 

-5.77008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.1540E 

01 

3.3000E-01  -O.OOOOE  00 

2.00808 

01 

3.3000E-01 

-8.00008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

195 

2.2060E 

01 

3.3000E-01  -6.7000E-01 

2.3970E 

01 

3.30008-01 

-6.70008-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2. 3830E 

01 

3.3000E-01  -1.9200E  00 

2.1950E 

01 

3.3000E-01 

-1.9200  8  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

196 

2.19S0E 

01 

3.3000E-01  -1.9200E  00 

2.3830E 

01 

3.3000E-01 

-1.92008  00 

l.OOOOE 

SO 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.3630E 

01 

3.30a0E-01  -3.7000E  00 

2.1830E 

01 

3.30008-01 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

197 

2.1830E 

01 

3.3000E-01  -3.7000E  00 

2.3630E 

01 

3.30008-01 

-3.70008  00 

l.OOOOE 

SO 

l.OOOOE 

SO 

l.OOOOE 

50 

2 

2.3400E 

01 

3.3000E-01  -5.7700E  00 

2.1 7008 

01 

3.3000E-01 

-5.77008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

198 

2.1700E 

01 

3.3000E-01  -5.7700E  00 

2.3400E 

01 

3.30008-01 

-5.77008  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

SO 

2 

2.3160E 

01 

3.3000E-01  -8.0000E  00 

2.1540E 

01 

3.3000E-01 

-8.0000E  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

199 

2.3970E 

01 

'3.3000E-01  -6.7000E-01 

2.63708 

01 

0.0 

-6.70008-01 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 

2 

2.6220E 

01 

0.0  -1. 92008  00 

2.38308 

01 

3.30008-01 

-1.92008  00 

l.OOOOE 

50 

l.OOOOE 

SO 

l.OOOOE 

50 

200 

2.3830E 

01 

3.3000E-OI  -1.9200E  00 

2.6220E 

01 

0.0 

-1.92008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

SO 

2 

2.6040E 

01 

0.0  -3.7000E  00 

2.36308 

01 

3.30008-01 

-3.70008  00 

l.OOOOE 

50 

l.OOOOE 

50 

l.OOOOE 

50 
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Table  B-2.  Concluded 


QUICK  TURN  WITH  STRUT  •!  H>.5 

MODEL  DATA  PAGE  9 


201 

2.  3630E 

01 

3.3000E-01 

-3.7000E 

00 

2.6040E 

01 

0.0 

-3.7000E 

00 

1. OOOOE 

SO 

1. OOOOE 

50 

1. OOOOE 

SO 

2 

2.Sa20E 

01 

0.0 

-S.  77006 

00 

2.3400E 

01 

3.3000E-01 

-5.7700E 

00 

1. OOOOE 

SO 

1. OOOOE 

50 

l.OOOOE 

50 

202 

2. 3A00E 

01 

3.3000E-OI 

-5.7700E 

00 

2.5a20E 

01 

0.0 

-5.7700E 

00 

1. OOOOE 

SO 

1. OOOOE 

SO 

l.OOOOE 

SO 

2 

2.55aOE 

01 

0.0 

-8.0000E 

00 

2.3160E 

01 

3.3000E-01 

-a .OOOOE 

00 

1. OOOOE 

SO 

1. OOOOE 

SO 

l.OOOOE 

SO 
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d.  Isometric  view 
Figure  B-1.  Continued, 
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PERSPECTIVE 

e.  Perspective 
Figure  B-1.  Concluded. 
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Table  B-3.  Input  Data  for  PFP 

LX  LV  LZ 

0  10 

AX  AV  AZ  PROX 

0.0  9.000000E  01  9.000000E  01  0.0 

FX  FT  FZ  FS  HI  R 

0.0  9.000000E  01  9.000000E  01  l.OOOOOOE  00  5.000000E>01  1.400000E  00 

NM  NO  IN  NO  IN  NEED 

202  12374  15000  4041 

PS  CA  M**2  BETA  1/BETA 

0.0  1.999998E*01  2.500000E-01  8.6602S4E>01  1.154700E  00 

TRAIL  VECTOR  E 

l.OOOOOOE  00  0.0  0.0  0.0 

BOOT  -  WIND  TRANSFORNATION  NATRIX  E 

l.OOOOOOE  00  0.0  0.0  0.0 

VO  0.0  l.OOOOOOE  00  0.0  0.0 

0.0  0.0  l.OOOOOOE  00  0.0 

BOCY  STRETCHED 

SYSTEN  STARTED 

SYSTEM  COMPUTED 

SOLUTION  STARTED 


JUl 

JU2 

NM2 

N2 

91 

92 

30 

203 

92 

91 

30 

173 

91 

92 

30 

143 

92 

91 

30 

113 

91 

92 

60 

B3 

92 

91 

60 

23 

91 

92 

180 

1 

SYSTEM  SOLVED 


RELATIVE  ERROR  OF  SOLUTION  2.65E-04 
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Table  B-4.  Velocity  Data  Tabulation 

gUtCK  TURN  KITH  STRUT  •!  H>.S 

VFLnriTIES  PACE  1 


x 

y 

z 

u 

V 

H 

IVI 

M 

AlVfU) 

AlNiUI 

CP  P-HI 

5.0000C 

00 

0.0 

2.0000E 

00 

0.S8B44 

0.0 

-0.00074 

0.98844 

0.49394 

0.0 

-0.04 

2.29Se-02  -6.063E-03 

S.OOOOE 

00 

S.OOOOE- 

-01 

2.0000E 

00 

0.98661 

0.  00106 

-0.00070 

0.98862 

0.49403 

0.06 

-0.04 

2.264E-02  -5.S72E-03 

s.aoooE 

00 

l.OOOOE 

00 

2.0000E 

00 

0.98911 

0.00203 

-0.00061 

0.98911 

0.49429 

0.12 

-0.04 

2.166E-02  -5.711E-C3 

5.00 OOE 

00 

l.SOOOE 

00 

2.0000E 

00 

0.98986 

0.00283 

-0.00048 

0.98986 

0.49468 

0.16 

-0.03 

2.017E-02  -5.319E-03 

5. 0000 r 

00 

2.00a0E 

00 

2.0000E 

00 

0.99076 

0.00344 

-0.00032 

0.99077 

0.49516 

0.20 

-0.02 

1.83£t-02  -4.8426-03 

S.OOOOE 

00 

2.5000E 

00 

2.0000E 

00 

0.99174 

0.00384 

-0.00017 

0.9917S 

0.49567 

0.22 

-0.01 

1.644E-C2  -4.330E-03 

5.0000E 

00 

S.OOOOE 

00 

2.0000E 

00 

0.99271 

0.00407 

-0.00003 

0.99272 

0.49618 

0.23 

-0.00 

1.450E-C2  -3.819E-03 

5. 00 OOE 

00 

0.0 

2.5000E 

00 

0.98803 

0.0 

0.00002 

0.98803 

0.49372 

0.0 

0.00 

2.3S0E-C2  -6.280E-03 

5.0000E 

00 

S.OOOOE- 

-01 

2.5000E 

00 

0.98822 

0.00112 

0.00004 

0.98822 

0.49382 

0.06 

0.00 

2.342E-G2  -6.178E-03 

5.0000F 

00 

l.OOOOE 

00 

2.5000E 

00 

0.98877 

0.00213 

0.00010 

0.98877 

0.49411 

0.12 

0.01 

2.232E-C2  -5.838E-03 

5.0000E 

00 

l.SOOOE 

00 

2.5000F 

00 

0.98960 

0.00296 

0.00020 

0.98960 

0.49454 

0.17 

0.01 

2.069E-C2  -5.45SE-03 

5.0000E 

00 

2.00a0E 

oo 

2.5000E 

00 

0.99058 

0.00357 

0.00030 

0.99059 

J.49S06 

0.21 

0.02 

1.873E-02  -4.936E-03 

S.OOOOE 

00 

2.S000E 

00 

2.5000E 

00 

0.99163 

0.00396 

0.00039 

0.99164 

0.49562 

0.23 

0.02 

1.664E-C2  -4.385E-03 

s.ooooe 

00 

S.OOOOE 

00 

2.S000E 

00 

0.99267 

0.00416 

0.00046 

0.99268 

0.49616 

0.24 

0.03 

1.459E-C2  -3.843E-03 

S.OOOOE 

00 

0.0 

S.OOOOE 

00 

0.98786 

0.0 

0.00089 

0.98  786 

J. 49363 

0.0 

0.05 

2.413E-C2  -6.368E-03 

S.OOOOE 

00 

5.0000E- 

-01 

S.OOOOF 

00 

0.98807 

0.00115 

0.00090 

0.98807 

0.49374 

0.07 

0.05 

^.372E-C2  -6.2S8E-03 

5. 0000  r 

00 

t.OOOOF 

00 

S.OOOOE 

00 

0.98866 

0.00219 

0.00093 

0.98866 

0.49405 

0.13 

0.05 

2.255E-C2  -S.948E-03 

S.OOOOE 

00 

l.SOOOE 

00 

S.OOOOE 

00 

0.98953 

0.00302 

0.00096 

0.98954 

0.49451 

0.18 

0.06 

2.081E-C2  -S.487E-03 

S.OOOOE 

00 

2.0000E 

00 

S.OOOOE 

00 

0.99058 

0.00363 

0.00098 

0.99058 

0.49506 

0.21 

0.06 

1.B75E-C2  -4.940E-03 

S.OOOOE 

00 

2.S000E 

00 

S.OOOOE 

00 

0.99167 

0.00401 

0.00099 

0.99168 

0.49563 

0.23 

0.06 

1.657E-C2  -4.366E-03 

S.OOOOE 

00 

S.OOOOE 

oo 

S.OOOOE 

OJ 

0.99273 

0.00419 

0.00099 

0.99274 

0.49619 

0.24 

0.06 

1.446E-02  -3.807E-03 

S.OOOOE 

00 

0.0 

3.5000E 

00 

0.98802 

0.0 

0.00184 

0.98802 

0.49372 

0.0 

0.11 

2.382E-02  -6.285E-03 

S.OOOOE 

00 

S.OOOOE-01 

3.5000E 

00 

0.98823 

0.00115 

0.00183 

0.98823 

0.49383 

0.07 

0.11 

2.340E-C2  -6.172E-03 

S.OOOOE 

00 

l.OOOOE 

00 

S.SOOOE 

00 

0.98883 

0.00218 

0.00180 

0.98884 

0.49414 

0.13 

0.10 

2.22CE-C2  -S.856E-03 

S.OOOOE 

00 

l.SOOOE 

00 

3.5000E 

00 

0.98972 

0.00301 

0.0017S 

0.96973 

0.49461 

0.17 

0.10 

2.0446-02  -S.389E-03 

S.OOOOE 

00 

2.0000E 

00 

3.5000E 

00 

0.99077 

0.00360 

0.00169 

0.99078 

0.49516 

0.21 

0.10 

1.835E-02  -4.837E-03 

S.OOOOE 

00 

2.SOaOE 

00 

S.SOOOE 

00 

0.99187 

0.00397 

0.00161 

0.99188 

0.49574 

0.23 

0.09 

1.618E-02  -4.261E-03 

S.OOOOE 

00 

S.OOOOE 

00 

S.SOOOE 

00 

0.99293 

0.00414 

0.00152 

0.99294 

0.49630 

0.24 

0.09 

1.407E-02  -3.7056-03 

S.OOOOE 

00 

0.0 

4.0000F 

00 

0.98853 

0.0 

0.00275 

0.98853 

0  .  49  399 

0.0 

0.16 

2.28CE-02  -6.0146-03 

S.OOOOC 

00 

S.OOOOF-01 

4.0000F 

00 

0.98874 

0.00111 

0.00272 

0.98874 

0.49409 

0.06 

0.16 

2.2396-02  -5.905E-03 

S.OOOOE 

00 

l.OOOOE 

00 

4.0000E 

00 

0.98932 

0.00211 

0.00264 

0.98932 

0.49440 

0.12 

0.15 

2.1246-  02  -  5.6016-  03 

S.OOOOE 

00 

l.SOOOE 

00 

4.0000E 

00 

0.99017 

0.00291 

0.00252 

0.99018 

0.49485 

0.17 

0.15 

1.9546-02  -5.1516-03 

S.OOOOE 

00 

2.0000E 

00 

4.0000F 

00 

0.99118 

0.00348 

0.00237 

0.99119 

0.49538 

0.20 

0.14 

1.7S4E-02  -4.6216-03 

S.0'000<= 

00 

2.SOOOE 

00 

4.0000E 

00 

0.99224 

0.00383 

0.00220 

0.99225 

0.49593 

0.22 

0.13 

1.545E-02  -4.068E-03 

S.OOOOE 

00 

S.OOOOE 

00 

4.a000E 

00 

0.99325 

0.00400 

0.00202 

0.99326 

0.49646 

0.23 

0.12 

1.3436-02  -3.5376-03 

S.OOOOE 

00 

0.0 

4.5000E 

00 

0.98937 

0.0 

0.00353 

0.98938 

0.49443 

0.0 

0.20 

2.1136-02  -5.5736-03 

S.OOOOE 

00 

S.OOOOE-01 

4.S000E 

00 

0.98956 

0.00104 

0100348 

0.98956 

0.49453 

0.06 

0.20 

2.0766-02  -S.47SE-03 

S.OOOOE 

00 

l.OOOOE 

00 

4.5000E 

00 

0.99009 

0.00198 

0.00336 

0.99009 

0.49480 

0.11 

0.19 

1.972E-02  -5.1976-03 

S.OOOOE 

00 

l.SOOOE 

00 

4.5000E 

00 

0.99086 

0.00274 

0.00318 

0.99087 

0.49521 

0.16 

0.18 

1.817E-02  -4.7886-03 

S.OOOOE 

00 

2.0000E 

00 

4.SOOOE 

00 

0.99179 

0.00328 

0.00295 

0.99180 

0.49570 

0.19 

0.17 

1.634E-02  -4.3046-03 

S.OOOOE 

00 

2.5000E 

00 

4.5000E 

00 

0.99275 

0.00362 

0.00270 

0.99276 

0.49620 

0.21 

0.16 

1.44  36-  02  -3.7986-03 

S.OOOOE 

00 

S.OOOOE 

00 

4.5000E 

00 

0.99368 

0.00378 

0.00245 

0.99369 

0.49669 

0.22 

0.14 

1.2576-02  -3.310E-03 

S.OOOOE 

00 

0.0 

S.OOOOE 

00 

0.99044 

0.0 

0.00410 

0.99045 

0.49499 

0.0 

0.24 

1.9016-02  -5.010E-03 

S.OOOOE 

00 

5.0000E- 

-01 

S.OOOOE 

00 

0.99060 

0.00095 

0.00405 

0.99061 

0.49507 

0.05 

0.23 

1.8696-02  -4.9266-03 

S.OOOOE 

00 

l.OOOOE 

00 

S.OOOOE 

00 

0.99105 

0.00180 

0.00390 

0.99106 

0.49531 

0.10 

0.23 

1.7796-02  -4.6886-03 

S.OOOOE 

00 

l.SOOOE 

00 

S.OOOOE 

00 

0.99173 

0.00250 

0.00367 

0.99174 

0.49567 

0.14 

0.21 

1. 6456-02  -4.3356-03 

5.0000P 

00 

2.0000E 

00 

S.OOOOE 

00 

0.99253 

0.00301 

0.00339 

0.99254 

0.49609 

0.17 

0.20 

1.4866-02  -3.9146-03 

S.OOOOE 

00 

2.SOOOE 

00 

S.OOOOE 

00 

0.99337 

0.00334 

0.00309 

0.99338 

0.49653 

0.19 

0.18 

1.3196-02  -3.4716-03 

S.OOOOE 

00 

S.OOOOE 

00 

S.OOOOF 

00 

0.99420 

0.00351 

0.00279 

0.99421 

0.49696 

0.20 

0.16 

1.1556-02  -3.0406-03 

S.OOOOE 

00 

0.0 

S.SOOOE 

00 

0.99162 

0.0 

0.00444 

0.99163 

0.49561 

0.0 

0.26 

1.6676-02  -4.3906-03 
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woir.K  TijaN  WITH  ST«UT  »i  w» . 5  Table  B-4.  Continued 

V^nCITIFS  P»CE  2 


X 

V 

7 

u 

V 

w 

IVI 

M 

AIVtUI 

A(H(UI 

CP  P-HI 

9.000aE 

00 

5.0000E-01 

5.5000F 

00 

0.99175 

0.00084 

0.00438 

0.99176 

0.49568 

0.05 

0.25 

1.641E-02  -4.322E-03 

$.0000'^ 

O') 

1.0000= 

00 

5.S000E 

00 

0.99212 

0.00160 

0.30422 

0.99213 

0.49587 

0.09 

0.24 

1.567E-02  -4.1278-03 

j.OOOJf 

00 

1.5000E 

00 

S.SOOOE 

00 

0.59268 

0.00223 

0.00397 

0.99269 

0.49616 

0.13 

0.23 

1.4S7E-C2  -3.8366-03 

5.0000= 

00 

2.0000= 

00 

5.5000= 

00 

0.99335 

0.00270 

0.00367 

0.99336 

0.49651 

0.16 

0.21 

1.324E-02  -3.4866-03 

S.OOOOE 

00 

2.5000= 

00 

5.5000= 

OJ 

0.99406 

0.C0302 

0.00334 

0.99407 

0.49689 

0.17 

0.19 

I.ia36-C2  -3. 1146-03 

5.0000E 

00 

3. OOOOE 

00 

5. 50U0E 

OJ 

0.99476 

0.00320 

0.00302 

0.99477 

0.49725 

0.18 

0.17 

1.044E-02  -2.747E-03 

s.oooor 

00 

0.0 

6.0000= 

00 

0.99280 

0.0 

0.00455 

0.99281 

0.49623 

0.0 

0.26 

1.4336-02  -3.7746-03 

5.0000  = 

00 

S.OOUOE-01 

6. OOOOE 

O'J 

3.99290 

0.00073 

0.00450 

0.99291 

0.49628 

0.04 

0.26 

1.413E-C2  -3.7216-03 

5.0000  = 

00 

1. OOOOE 

00 

6. OOOOE 

00 

0.99315 

0.00139 

0.00434 

0.99320 

0.49643 

0.08 

0.25 

1.355E-C2  -3.568E-03 

5.0000F 

00 

1.5000E 

00 

6. OOOOE 

OJ 

0.99363 

0.00195 

0.00409 

0.99364 

0.49666 

0.11 

0.24 

1.2666-02  -3.3366-03 

5.0000F 

00 

2.0000F 

00 

6.0000= 

00 

0.99417 

0.00233 

0.J0379 

0.99418 

0.49694 

0.14 

0.22 

1.1616-02  -3. 0566-03 

S.OOOOE 

00 

2.5000E 

JO 

6. OOOOE 

00 

0.99475 

0.00268 

0.00347 

0.99476 

0.49725 

0.15 

0.20 

1.0466-02  -2. 7526-03 

S.OOOOE 

00 

3. OOOOE 

00 

6.0000= 

03 

0.99532 

0.00287 

0.00314 

0.99533 

0.49755 

0.16 

O.IE 

9.312E-C3  -2.4496-03 

7.000UE 

00 

0.0 

2.0000= 

00 

0.97345 

0.0 

-0.00733 

0.97050 

0.48455 

0.0 

-0.55 

5.813E-02  -1.5456-02 

7.0000E 

00 

5.0000E- 

-01 

2.0000= 

OJ 

0.97177 

0.00528 

-0.00863 

0.97183 

0.48524 

0.31 

-0.51 

5.5SSE-C2  -1.4786-02 

7.0000E 

00 

1. OOOOE 

00 

2.0000= 

00 

0.97517 

0.00922 

-0.00668 

0.97524 

0.48703 

0.54 

-0.40 

4.8916-02  -1.2976-02 

7.0000  = 

00 

1.5000c 

00 

2. OOOOE 

00 

0.97946 

0.01134 

-0.004  80 

0.97954 

0.48927 

0.66 

-0.28 

4.051E-C2  -1.0736-02 

7  .OOOOE 

00 

2.0000= 

00 

2.0000= 

Oj 

0.98363 

0.01194 

-0.00297 

0.98371 

U. 49146 

0.70 

-0.17 

3.2326-02  -8.5446-03 

7.0000  = 

00 

2.5000= 

00 

2. OOOOE 

00 

0.98720 

0.01158 

-0.00159 

0.98727 

0.49332 

0.67 

-0.09 

2.5316-02  -6.679E-03 

7. OOOOE 

00 

3. OOOOE 

00 

2.0000= 

00 

0.99005 

0.01075 

-0.00065 

0.99011 

0.49481 

0.62 

-0.04 

1.9686-02  -5.1896-03 

7.0000= 

0) 

0.0 

2.SOOOE 

00 

0.96380 

0.0 

-0.00856 

0.96384 

0.48107 

O.U 

-0.51 

7.1016-02  -1.8936-02 

7.0000= 

00 

5.0000E- 

-01 

2.5000= 

00 

0.96590 

0.006  78 

-0.00769 

0.96595 

0.48217 

0.40 

-0.46 

6.6946-02  -1.7836-02 

7. OOOOE 

00 

1. OOOOE 

00 

2.5000E 

on 

0.97106 

0.01144 

-0.00560 

0.97115 

0.48488 

0.68 

-0.33 

5.688E-C2  -1.5126-02 

7.0000  = 

00 

1.5000E 

00 

2.5OC0E 

00 

0.97711 

0.01344 

-0.00332 

0.97721 

U. 48606 

0.79 

-0.19 

4.5066-02  -1.1946-02 

7.0000  = 

00 

2. OOOOE 

00 

2.5000E 

00 

0.98253 

0.01353 

-0.00149 

0.98262 

0.49089 

0.79 

-0.09 

3.4456-02  -9. 1126-03 

7.0000  = 

00 

2.5000E 

00 

2.5000= 

00 

0.98681 

0.01264 

-0.00027 

0.98689 

0.49312 

0.73 

-0.02 

2.60SE-C2  -6.8766-03 

7.0000  = 

00 

3. OOOOE 

00 

2.5000E 

CO 

0.99002 

0.01140 

U.00J45 

0.99009 

0.49480 

0.66 

0.03 

1. 9736-02  -5.2016-03 

7.0000  = 

00 

0.0 

3. OOOOE 

00 

0.95645 

0.0 

-0.00491 

0.95650 

0.47724 

0.0 

-0.29 

8.5116-02  -2.2766-02 

7. OOOOE 

00 

5.0000F-01 

3. OOOOE 

00 

0.95962 

0.00840 

-0.00412 

0.95967 

0.4  7889 

0.50 

-0.25 

7.9046-02  -2.1116-02 

7.0000  = 

00 

1. OOOOE 

00 

3.0000F 

00 

0.96704 

0.01367 

-0.00232 

0.96714 

0.48279 

0.81 

-0.14 

6.4646-02  -1.7216-02 

7.0000= 

00 

1.5000= 

30 

3. OOOOE 

OJ 

0.97514 

0.01536 

-0.00051 

0.97526 

0.48704 

0.90 

-0.03 

4.8866-02  -1.2966-02 

7.0000  = 

00 

2.0030E 

00 

3.0000= 

00 

0.98184 

0.01482 

0.00076 

0.98195 

0.49054 

0.86 

0.04 

3.5786-02  -9.4646-03 

7.0000  = 

00 

2.5000E 

OJ 

3. OOOOE 

oc 

0.98675 

0.01338 

0.00147 

0.98684 

0.49310 

0.78 

0.09 

2.614E-02  -6.901E-03 

7.0000= 

00 

3.0000= 

00 

3.0000= 

00 

0.99022 

0.01175 

0.00177 

0.99029 

0.49491 

0.68 

0.10 

1.9326-02  -5.0926-03 

7.0000= 

00 

0.0 

3.5000E 

00 

0.95212 

C.C 

0.00253 

0.95213 

0.47496 

0.0 

0.15 

9. 3456-02  -2.5046-02 

7.0000= 

00 

S.OOOOE- 

-01 

3.5000E 

00 

0.95605 

0.00942 

0.00277 

0.95610 

0.47703 

0.56 

0.17 

8.S86E-02  -2.2976-02 

7.0000  c 

0!) 

1. OOOOE 

00 

3.5000E 

00 

0.96512 

0.01497 

0.00325 

0.96524 

0.48180 

0.89 

0.19 

6.8316-02  -1.8206-02 

7.0000= 

00 

1.5000F 

OJ 

3.5O00E 

00 

0.97460 

0.01632 

0.00360 

0.97474 

0.48676 

0.96 

0.21 

4.9886-02  -1.3246-02 

7. OOOOE 

00 

2. OOOOE 

00 

3.5O00E 

00 

0.98202 

0.01530 

0.00366 

0.98215 

0.49064 

0.89 

0.21 

3.S38E-02  -9.3596-03 

7.0000  = 

00 

2.5000E 

00 

3.5000E 

00 

0.98721 

0.01351 

0.00350 

0.98731 

0.49334 

0.'78 

0.20 

2.5236-02  -6. 6586-03 

7. OOOOE 

00 

3. OOOOE 

00 

3.5000E 

00 

0.99072 

0.01168 

0.00320 

0.99079 

0.49517 

0.68 

0.19 

1.8336-02  -4.8306-03 

7. OOOOE 

uo 

0.0 

4. OOOOE 

00 

0.95471 

0.0 

0.01145 

0.95478 

0.4  7634 

0.0 

0.69 

8.8406-02  -2.3666-02 

7.0000= 

00 

S.OOOOE- 

-01 

4.caooE 

00 

0.95851 

0.00910 

0.01089 

0.95861 

0.47834 

0.54 

0.65 

8. 1066-02  -2.1666-02 

7.0000= 

00 

1.0000= 

00 

4. OOOOE 

OJ 

0.96726 

0.01442 

0.00955 

0.96741 

0.48293 

0.85 

0.57 

6.411E-C2  -1.7076-02 

7.0000  = 

00 

1.5000E 

00 

4. OOOOE 

00 

0.97635 

0.01 566 

0.00300 

0.97651 

0.48769 

0.92 

0.47 

4.6436-02  -1.231E-02 

7. OOOOE 

00 

2.0000= 

00 

4.0000F 

00 

0.98340 

0.01462 

0.00661 

0.98353 

0.49137 

0.85 

0.39 

3.2666-02  -8.6346-03 

7.0000= 

00 

2. 5000 F 

00 

4. OOOOE 

00 

0.98827 

0.01286 

0.00547 

0.98837 

0.49390 

0.75 

0.32 

2.3136-02  -6.1026-03 

7. OOOOE 

00 

S.OOOOE 

00 

4. OOOOE 

00 

0.99152 

0.01109 

0.00455 

0.99160 

0.49559 

0.64 

0.26 

1.674E-C2  -4. 4096-03 

7.0000= 

00 

0.0 

4.5000= 

00 

0.96  368 

0.0 

0.01752 

0.96384 

0.48107 

0.0 

1.04 

7.1026-02  -1.8936-02 

7. OOOOE 

03 

5.0000E-01 

4.5000E 

00 

0.96649 

0.00753 

0.01649 

0.96666 

0.48254 

0.45 

0.98 

6.SS7E-02  -1.7466-02 
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Table  B-4.  Concluded 


QUICK  TURN  MlTH  STRUT  «1  N-.S 
VELOCITIES  PAGE  3 


X 

Y 

z 

u 

V 

N 

IVI 

n 

AIVtUi 

AlMtUI 

CP  P-W 

7. 00  00  E 

00 

l.OOOOE 

00 

4.5000E 

00 

0.97308 

0.01216 

0.01402 

0.97325 

0.48599 

0.72 

0.83 

5.278E-02  -1.401E-02 

7.0000E 

00 

l.SOOOE 

00 

A.50C0E 

00 

0.98014 

0.01351 

U. 01123 

0.98030 

0.48967 

0.79 

0.66 

3.902E-02  -1.033E-02 

T.OOOOE 

00 

2.0000E 

00 

4.S000E 

00 

0.98S81 

0.01288 

0.00884 

0.96593 

0.49262 

0.75 

0.51 

2.T94E-C2  -7.3T9E-03 

T.OOOOE 

00 

2.5000E 

00 

4.S000E 

00 

0.98983 

0.01152 

0.00698 

0.98992 

0.49471 

0.67 

0.40 

2.006E-C2  -5.209b-03 

T.OOOOE 

00 

3.0000E 

00 

4.5000E 

00 

0.99257 

0.01006 

0.00559 

0.99264 

0.49614 

0.58 

0.32 

1.467E-02  -3.863E-03 

T.OOOOE 

00 

0.0 

5.0000E 

00 

0.97435 

0.0 

0.01900 

0.97454 

0.48666 

0.0 

1.12 

5.028E-02  -1.334E-02 

T.OOOOE 

00 

5.0000E-01 

S.OOOOE 

00 

0.97603 

0.00553 

0.01799 

0.97621 

0.48753 

0.32 

1.06 

4.702E-02  -1.247E-02 

T.OOOOE 

00 

l.OOOOE 

00 

5.0000E 

00 

0.98009 

0.00922 

0.01547 

0.98026 

0.48965 

0.54 

0.90 

3.909E-02  -1.03SE-02 

T.OOOOE 

00 

l.SOOOE 

00 

S.OOOOE 

00 

0.96470 

0.01068 

0.01253 

0.98484 

0.49205 

0.62 

0.73 

3.009E-02  -7.950E-03 

T.OOOOE 

00 

2.0000E 

00 

S.OOOOE 

00 

0.98864 

0.01059 

0.00990 

0.98875 

0.49410 

0.61 

0.57 

2.237E-02  -5.901E-03 

T.OOOOE 

00 

2.5000E 

00 

S.OOOOE 

00 

0.99161 

0.00978 

0.00780 

0.99168 

0.49564 

0.56 

0.45 

1.656E-02  -4.363E-03 

T.OOOOE 

00 

3.0000E 

00 

S.OOOOE 

00 

0.99372 

0.00876 

0.00621 

0.99378 

0.49674 

0.50 

0.36 

1.240E-02  -3.264E-03 

T.OOOOE 

00 

0.0 

5.5000E 

00 

0.98303 

0.0 

0.01738 

0.98319 

0.49118 

0.0 

1.01 

3.334E-02  -8.816E-03 

T.OOOOE 

00 

S.OOOOE-01 

S.SOOOE 

00 

0.98391 

0.00381 

0.01661 

0.98406 

0.49164 

0.22 

0.97 

3.162E-02  -8.357E-03 

T.OOOOE 

03 

l.OOOOE 

00 

S.SOOOE 

00 

0.98614 

0.00659 

0.01465 

0.98627 

0.49280 

0.38 

0.85 

2.728E-02  -7.202E-03 

T.OOOOE 

00 

l.SOOOE 

00 

S.SOOOE 

00 

0.98883 

0.00799 

0.01222 

0.98894 

0.49420 

0.46 

0.71 

2.201E-C2  -5.004E-03 

T.OOOOe 

00 

2.0000F 

00 

S.SOOOE 

00 

0.99131 

0.00830 

0. 00990 

0.99140 

0.49549 

0.48 

0.57 

1.713E-02  -4.514E-03 

T.OOOOE 

00 

2.5000E 

00 

S.SOOOE 

00 

0.99332 

0.00797 

0.00795 

0.99338 

0.49653 

0.46 

0.46 

1.319E-02  -3.4T2E-03 

T.OOOOE 

00 

3.0000E 

00 

S.SOOOE 

00 

0.99484 

0.00737 

0.00640 

0.99489 

0.49732 

0.42 

0.37 

1.020E-02  -2.6S2E-03 

T.OOOOE 

00 

0.0 

6.0000E 

00 

0.98890 

0.0 

0.01468 

0.98901 

0.49424 

0.0 

0.85 

2.105E-02  -5.7636-03 

T.OOOOE 

00 

5.00U0E- 

->.1 

6.0000E 

00 

0.9893S 

0.00259 

0.01417 

0.98945 

0.49447 

0.15 

0.82 

2.0986-02  -5.533E-03 

T.OOOOE 

00 

l.OOOOE 

00 

6.0000E 

00 

0.99051 

0.00462 

0.01281 

0.99060 

0.49507 

0.27 

0.74 

1.871E-02  -4.930E-03 

T.OOOOE 

00 

l.SOOOE 

ou 

6.0000E 

00 

0.99200 

0.00584 

0.01103 

0.99208 

0.49585 

0.34 

0.64 

1.577E-02  -4.L54E-03 

T.OOOOE 

00 

2.ooaoE 

00 

6.0000E 

00 

0.99349 

0.00634 

0.00922 

0.99355 

0.49662 

0.37 

0.53 

1.2856-02  -3.383E-U3 

T.OOOOE 

00 

2.5000C 

00 

6.0000E 

00 

0.99478 

0.00635 

0.00760 

0.99483 

0.49729 

0.37 

0.44 

1.0316-02  -2.7136-03 

T.OOOOE 

00 

3.0000E 

00 

6.0000E 

00 

0.99S83 

0.00608 

0.00624 

0.99586 

0.49783 

0.35 

0.36 

8.2556-03  -2.171E-03 
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b.  Lines  of  constant  upwash  at  X-station  5 
Figure  B-2.  Continued. 
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d.  Lines  of  constant  upwash  at  X-station  7 
Figure  B-2.  Concluded. 
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Table  B-5.  Streamline  Data  Tabulation 


QUICK  TURN  HITH  STRUT  *1  N-.5 

STREAMLINE  1  PAGE  1 


AN  •  1.000 

AX  >  3.000  DSO  - 

2.0000E-01 

X 

Y 

Z 

u 

V 

M 

6.0000E 

00 

5.0000E-01 

3.T500F 

00 

0.98021 

0.00268 

0.00373 

6.2000E 

00 

5.0061E-01 

3.750BF 

00 

0.97742 

0.00331 

0.00417 

6.4000E 

00 

5.0138E-OL 

3.7517F 

00 

0.97397 

0.00417 

0.00469 

6.6000E 

00 

5.0236E-01 

3.7527E 

00 

0.96959 

0.00535 

0.00531 

6.8000E 

00 

S.0364E-01 

3.75395 

00 

0.96396 

0.00704 

0.00607 

T.OOOOE 

00 

9.0537E-01 

3.7553E 

00 

0.95655 

0. 00953 

0.00700 

7.1999E 

00 

S.0777E-01 

3.75695 

00 

0.94655 

0.01333 

0.00818 

T.3999E 

00 

S.1126E-01 

3.75885 

00 

0.93273 

0.01941 

0.00972 

7.5998E 

00 

5.1657E-01 

3.76115 

00 

0.91315 

0.02961 

0.01181 

7.T996E 

00 

5.2519E-01 

3.76415 

00 

0.88504 

U. 04774 

0.01482 

7.9989E 

00 

S.4020E-01 

3.76805 

CO 

0.84543 

0.08179 

0.01936 

8.1106E 

00 

S.5336E-01 

3.77095 

00 

0.81844 

0.11366 

0.02291 

8.1938E 

00 

5.6680E-01 

3.77345 

00 

0.79821 

0.14683 

0.02618 

8.2S58F 

00 

5.7954E-01 

3.77565 

00 

0.78549 

0.17828 

0.02901 

8.3171E 

00 

5.9902F-01 

3.77805 

00 

0.77813 

0.21589 

0.03214 

9.3775E 

00 

6.1348F-01 

3.78065 

00 

0.78061 

0.25918 

0.03550 

8.4370E 

00 

6.3480E-01 

3.78345 

00 

0.79855 

0.39593 

0.03889 

8.4957E 

00 

6.9BS7E-01 

3.7B63F 

00 

0.83772 

0.35130 

0.04202 

8.553BE 

00 

6.8309E-01 

3.7892E 

00 

0.90202 

0.38752 

0.04453 

8.6417E 

00 

7. 1876E-01 

3.79335 

00 

1.04258 

0.4022b 

0.04654 

8.69 19E 

00 

7.3674E-01 

3.79555 

00 

1.13457 

0.37710 

0.04657 

8.7301E 

00 

7.4848E-01 

3.79705 

00 

1.20119 

0.33927 

0. 04609 

8.7592E 

00 

T.5907E-01 

3.7981E 

00 

1.24567 

0.30034 

0.04550 

8.7S8SE 

00 

7.6249E-01 

3.7991E 

00 

1.28248 

0.25338 

0.04475 

8.81B1E 

00 

7.6767E-01 

3.80015 

00 

1.30918 

0.20005 

0.04387 

8.8478E 

00 

7.7154E-01 

3.80115 

00 

1.32  391 

0.14266 

0.04293 

8.8777E 

00 

7.7410E-01 

3.80215 

00 

1.32559 

0.08396 

0.04197 

8.9077F 

00 

7.7S36E-01 

3.80305 

00 

1.31417 

0.02692 

0.04107 

8.9377E 

00 

7.7537E-01 

3.8039E 

00 

1.29056 

-0.0256b 

0.04028 

8.9677E 

00 

7.7423E-01 

3.8049E 

00 

1.25652 

-0.07137 

0.03967 

8.9976E 

00 

7.720SE-01 

3.8C5SE 

00 

1.21447 

-0.10841 

0.03929 

9.0275E 

00 

7.6899E-01 

3.80685 

00 

1.16711 

-0.13569 

0.03920 

9.0573E 

00 

7.6523E-01 

3.80785 

00 

1.11718 

-0.15283 

0.03945 

9.0B70E 

00 

T.6097E-01 

3.8089E 

00 

1.06721 

-0.16004 

0.04007 

9.1315E 

00 

7.5421E-01 

3.81075 

00 

0.99689 

-0.15373 

0.04177 

9.1983E 

00 

7.4487E-01 

3.813BE 

00 

0.91213 

-0.11312 

0.04607 

9.2487E 

00 

7.3982E-01 

3.81655 

00 

0.87017 

-0.06588 

0.05052 

9.2866F 

00 

7.3782E-01 

3.81885 

00 

0.85211 

-0.02500 

0.05435 

9.3245E 

00 

7.37675-01 

3.82135 

00 

0.84572 

0.01792 

0.05836 

9.3623F 

00 

7.3942E-01 

3.82405 

00 

0.85084 

0.06066 

0.06232 

9.4001E 

00 

7.42985-01 

3.8269E 

00 

0.86708 

0.10107 

0.06595 

9.4376E 

00 

T.4B05E-01 

3.82975 

00 

0.89386 

0.13705 

0.06899 

9.47S0E 

00 

7.5427E-01 

3.8326E 

00 

0.93024 

0.16649 

0.07122 

9.5123E 

00 

7.6119E-01 

3.8354E 

00 

0.97485 

0.18730 

0.07247 

9.5681F 

00 

7.7182E-ai 

3.83945 

00 

1.05249 

0.19826 

0.07226 

9.6524E 

00 

7.854AE-01 

3.84475 

00 

1.17153 

0. 16066 

0.06718 

9.7001E 

00 

7.9080E-01 

3.8473E 

00 

1.22406 

0.11109 

0.06209 

9.7360E 

00 

T.9343E-01 

3.84905 

00 

1.24996 

0.06380 

0.05751 

9.7721E 

00 

7.94S1E-01 

3.8506E 

00 

1.26133 

0.01150 

0.05252 

9.8081E 

00 

7.9408E-01 

3.8520E 

00 

1.25703 

-0.04175 

0.04734 

Ivl 

M 

AlVfUl 

AINiUI 

CP 

H-Hl 

0.98022 

0.48963 

0.16 

0.22 

3.917E-02 

-1.0375-02 

0.97744 

0.48817 

0.19 

0.24 

4.461E-02 

-1.1836-02 

0.97399 

0.48637 

0.25 

0.28 

5.135b-02 

-1.3635-02 

0.96962 

0.43409 

0.32 

0.31 

5.983E-02 

-1.5916-02 

0.96401 

0.48115 

0.42 

0.36 

7.C69E-02 

-1.8655-02 

0.95662 

0.47730 

0.57 

0.42 

8.4885-02 

-2.270E-02 

0.94668 

0.47212 

0.81 

0.50 

1.038E-01 

-2.768E-02 

0.93298 

0.46499 

1.19 

0.60 

1.296E-G1 

-3.5016-02 

0.91371 

0.45498 

1.86 

0.74 

1.651E-C1 

-4.502E-02 

0.88645 

0.44087 

3.09 

0.96 

2.142E-C1 

-5.913E-02 

0.84959 

0.42187 

5.53 

1.31 

2.782E-C1 

-7.8135-02 

0.82661 

0.41007 

7.91 

1.60 

3.167E-01 

-8.9935-02 

0.81202 

0.40260 

10.42 

1.88 

3.406E-C1 

-9.740E-02 

0.80599 

0.39951 

12.79 

2.11 

3.504E-01 

-1.0C5E-C1 

0.80817 

0.40062 

15.51 

2.37 

3.469E-C1 

-9.9385-02 

0.82328 

0.40836 

18.37 

2.60 

3.222E-C1 

-9.1645-02 

0.85603 

0.42518 

20.96 

2.79 

2.672E-C1 

-7.4625-02 

0.90937 

0.45273 

22.75 

2.87 

1.730E-ai 

-4.7276-02 

0.98275 

0.49096 

23.25 

2.83 

3.42CE-C2 

-9.044E-03 

1.11846 

0.56277 

21.10 

2.56 

-2.510E-01 

6. 2775-02 

1.19650 

0.60481 

18.39 

2.35 

-4.  J16E-01 

1.0485-01 

1.24903 

0.63345 

15.77 

2.20 

-5.601E-01 

1.334E-U1 

1.28217 

0.65166 

13.56 

2.09 

-6. 4405-01 

1.5175-01 

1.30804 

0.66596 

11.18 

2.00 

-7.11CE-G1 

1.6605-01 

1.32510 

0.67544 

8.69 

1.92 

-7.5595-01 

1.7545-01 

1.33226 

0.67942 

6.15 

1.86 

-7.7495-01 

1.7945-01 

1.32891 

0.67756 

3.62 

1.81 

-7.660E-01 

1.776E-01 

1.31508 

0.66987 

1.17 

1.79 

-7.294E-01 

1.6995-01 

1.29144 

0.65678 

-1.14 

1.79 

-6.67eE-Cl 

1.5685-01 

1.25917 

0.63901 

-3.25 

1.81 

-5,8556-01 

1.3906-01 

1.21993 

0.61755 

-5.10 

1.85 

-4.882E-C1 

1.17bE-01 

1.17562 

0.59351 

-6.63 

1.92 

-3.821E-01 

9.351E-C2 

1.12827 

0.56802 

-7.79 

2.02 

-2.730E-01 

6.8025-02 

1.07989 

0.54220 

-8.53 

2.15 

-1.662E-01 

4.2205-02 

1.00953 

0.50501 

-8.77 

2.40 

-1.9165-C2 

5.0095-03 

0.92027 

0.45839 

-7.07 

2.89 

1.5316-01 

-4.1616-02 

0.87412 

0.43451 

-4.33 

3.32 

2.3595-01 

-6.5495-02 

0.85421 

0.42425 

-1.68 

3.65 

2.7035-01 

-7.575E-C2 

0.84792 

0.42101 

1.21 

3.95 

2.8105-01 

-7.899E-02 

0.85527 

0.42479 

4.08 

4.19 

2.685E-01 

-7.521E-02 

0.87544 

0.43519 

6.65 

4.35 

2.336E-01 

-6.481E-02 

0.90693 

0.45147 

8.72 

4.41 

1.7755-01 

-4.853E-02 

0.94770 

0.47265 

10.15 

4.38 

1.019E-01 

-2.7355-02 

0.99532 

0.49754 

10.88 

4.25 

9. 3425-03 

-2.457E-03 

1.07343 

0.53877 

10.67 

3.93 

-1.5235-01 

3.8775-02 

1.18439 

0.59825 

7.81 

3.28 

-4.0286-01 

9. 8256-02 

1.23066 

0.62340 

5.19 

2.9C 

-5.145E-01 

1.2346-01 

1.25290 

0.63557 

2.92 

2.63 

-5.69CE-01 

1^3565-01 

1.26248 

0.64082 

0.52 

2.38 

-5.938E-C1 

1.4086-01 

1.25861 

0.63870 

-1.90 

2.16 

-5. 84 16-01 

1.3876-01 
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STREANLINE 

AN  s  l.OOO 

X 

-  1  PAGE  2 

AX  3.000  DSO  - 

V  Z 

2.0000E-01 

u 

V 

W 

IVl 

M 

AlVfUl 

AIWiUI 

CP 

N-HI 

9.aA41E 

00 

7.921SE-01 

3.a533E 

00 

1.23754 

-0.09175 

0.04225 

1.24165 

0.62941 

-4.24 

1.96 

-5.417E-01 

1.294E-01 

Q.eSOOE 

00 

7.e882E-01 

3.8545E 

00 

1.20485 

-0.13479 

0.03750 

1.21295 

0.61375 

-6.38 

1.78 

-4.712E-01 

1.137E-01 

9.  91  set 

00 

7.84Z5E-01 

3.8556E 

00 

1.16216 

-0.16805 

0.03334 

1.17472 

0.59302 

-8.23 

1.64 

-3.800E-C1 

9.302E-02 

9.9514E 

00 

7.Ta64E-01 

3.8566E 

00 

1.11323 

-0.18986 

0.02997 

1.12970 

0.56879 

-9.68 

1.54 

-2.762E-01 

6.B79E-02 

9.98b9F 

00 

7.7226E-ai 

3.8575E 

00 

1.06190 

-0.19971 

0.02758 

1.08086 

0.54272 

-10.65 

1.49 

-1.603E-01 

4.272E-02 

l.a040E 

01 

7.6210E-01 

3.85B9E 

00 

0.98779 

-0.19313 

0.02612 

1.00683 

0.50359 

-11.06 

1.51 

-1.370E-02 

3.567E-03 

1.0120E 

01 

7.4783E-01 

3.8612E 

00 

0.89949 

-0.14434 

0.02888 

0.91145 

0.45381 

-9.12 

1.84 

1.693E-ai  -4.619E-02 

1.016SE 

01 

7.4150E-ai 

3.8628E 

00 

0.86692 

-0.10290 

0.03273 

0.87362 

0.43425 

-6.77 

2.16 

2.368E-ai  -6.575E-02 

1.0199F 

01 

7.3812E-01 

3.8642E 

00 

0.85151 

-O.U&783 

0. 03640 

0.85498 

0.42465 

-4.55 

2.45 

2.690E-ai  -7.535E-02 

1.0233E 

01 

7.3613E-01 

3.8857E 

00 

0.84396 

-0.03082 

0.04046 

0.84549 

0.41976 

-2.09 

2.74 

2.052E-C1  -8.0248-02 

1.0267E 

01 

7.3S65E-01 

3.8675E 

00 

0.84419 

0.00689 

0.04461 

0.84539 

0.41971 

0.47 

3.02 

2.aS3E-Cl  -8.029E-02 

1.0302E 

01 

7.3668E-ai 

3.8693E 

00 

0.85206 

0.04415 

0.04853 

0.85458 

0.42444 

2.97 

3.26 

2.697E-01  -7.5S6E-02 

1.0336F 

01 

T.3913E-01 

3.8T13E 

00 

0.86740 

0.07981 

0.05191 

0.87261 

0.43372 

5.26 

3.42 

2.386E-01  -6.628E-02 

1.9  3  70E 

01 

7.42a6E-01 

3.a734E 

00 

0.88999 

0.11279 

0.05447 

0.89876 

0.44723 

7.22 

3.50 

1.922E-C1  -5.277E-02 

l.04a9F 

01 

7.4762E-01 

3.8T55E 

00 

0.91953 

0.14189 

0.05596 

0.93209 

0.46453 

8.77 

3.48 

1.312E-01  -3.547E-02 

1.0437E 

01 

T.S314E-01 

3.8775E 

00 

0.95559 

0.16587 

0.05618 

0.97150 

0.48507 

9.85 

3.36 

5.619E-02  -1.493E-02 

1.04T1E 

01 

7.5917E-01 

3.8794E 

00 

0.99743 

0.18341 

0.05500 

1.01564 

0.50822 

10.42 

3.16 

-3.152E-C2 

8.220E-03 

l.aS2lE 

01 

7.6841E-01 

3.8820E 

00 

1.06850 

0.19480 

0.05043 

1.08728 

0.54613 

10.33 

2.70 

-1.822E-ai 

4.613E-02 

1.0597E 

01 

7.8079E-01 

3.8a50E 

00 

1.18123 

0.17105 

0.03734 

1.19414 

0.60353 

8.24 

1.81 

-4.26aE-ai 

1.03SE-01 

1.06S5E 

01 

7.8762E-01 

3.8864E 

00 

1.25416 

0.11847 

0.02318 

1.25996 

0.63944 

5.40 

1.06 

-5.875E-01 

1.394E-01 

1.06  9BE 

01 

7.9070E-01 

3.8870E 

00 

1.29218 

0.06244 

0.01077 

1.29373 

0.65804 

2.77 

0.48 

-6.737E-01 

l.SSOE-Ol 

1.0741F 

01 

7.9170E-01 

3.8871E 

00 

1.31009 

-0.00247 

-0.00256 

1.31009 

0.66710 

-0.11 

-O.ll 

-7.163E-01 

1.671E-C1 

1.0785F 

01 

7.9051E-01 

s.aaaaE 

00 

1.30536 

-0.06961 

-0.01620 

1.30732 

0.66556 

-3.05 

-0.71 

-7.091E-01 

1.656E-01 

1.0828E 

01 

7.8714E-01 

3.8860E 

00 

1.27875 

-0.13194 

-0.02953 

1.28588 

0.65371 

-5.89 

-1.32 

-6.535E-01 

1.S37E-01 

l.a871E 

01 

7.8175E-01 

3.8848E 

00 

1.23408 

-0.18348 

-0.04193 

1.24835 

0.63308 

-8.46 

-1.95 

-5.584E-01 

1.331E-01 

-1.0914E 

01 

7.7459E-01 

3.a831E 

00 

1.17714 

-0.22034 

-0.05293 

1.19875 

0.60603 

-10.60 

-2.57 

-4.37aE-01 

1.060E-01 

1.09$6E 

01 

7.660SE-01 

3.a810E 

00 

1.11425 

-0.24104 

-0.06213 

1.14171 

0.57524 

-12.21 

-3.19 

-3.035E-01 

7.524E-02 

1.0998E 

01 

7.5655E-01 

3..8784E 

00 

1.05108 

-0.24615 

-0.06931 

1.08174 

0.54319 

-13.18 

-3.77 

-1.702E-01 

4.319E-02 

1.1040E 

01 

T.4659E-01 

3.8755E 

00 

0.99196 

-0.23757 

-0.07435 

1.02271 

0.51195 

-13.47 

-4.29 

-4.59SE-G2 

1.195E-02 

1.1103E 

01 

7.3196E-01 

3.8704E 

00 

0.91663 

-0.20463 

-0.07799 

0.94242 

0.46990 

-12.58 

-4.86 

1.118E-01  -3.010E-02 

1.1167E 

01 

7.1912E-01 

3.8648E 

00 

0.86054 

-0.15532 

-0.07745 

0.87787 

0.43644 

-10.23 

-5.14 

2.293E-ai  -6.3S6E-02 

1.1215F 

01 

7.1IS5E-ai 

3.8605E 

00 

0.83123 

-0.11181 

-0.07484 

0.84205 

0.41800 

-7.66 

-5.14 

2.910E-01  -8.200E-02 

1.1251E 

01 

T.0741E-01 

3.85T3E 

00 

0.81612 

-0.07694 

-0.07194 

0.82289 

0.40816 

-5.39 

-5.04 

3.228E-01  -9.184E-02 

1.1287E 

01 

7.0478E-01 

3.8541E 

.00 

0.80672 

-0.04091 

-0.06846 

0.81066 

0.40190 

-2.90 

-4.85 

3.42fiE-01  -9.ei0E-02 

1.1324E 

01 

7.0376E-01 

3. 851 IE 

00 

0.80302 

-0.00424 

-0.0/6459 

0.80563 

0.39932 

-0.30 

-4.60 

3.5iaE-01  -1.007E-C1 

1.1360E 

01 

7.0440E-01 

3.8483E 

00 

0.80519 

0.03255 

-0.06053 

0.80811 

0.40060 

2.31 

-4.30 

3.47aE-0l  -9.940E-02 

1.1397E 

01 

7.0&89E-01 

3.8456E 

00 

0.81359 

0.06885 

-0.05649 

0.81845 

0.40589 

4.84 

-3.97 

3.301E-01  -9.411E-02 

I.1433E 

01 

7. 1051E-01 

3.8432E 

00 

0.82876 

0.10393 

-0.05264 

0.83691 

0.41536 

7.15 

-3.63 

2.996E-01  -8.464E-02 

1.1469E 

01 

7.1569E'-01 

3.8410E 

oa 

0.85127 

0.13677 

-0.04916 

0.86359 

0.42907 

9.13 

-3.30 

2.542E-01  -7.093E-02 

1.1S05E 

01 

7.2198E-01 

3.8391E 

00 

0.88159 

0.16606 

-0.04619 

0.89828 

0.44699 

10.67 

-3.00 

1.931E-C1  -5.301E-a2 

1.1541E 

01 

7.2907E-01 

3.83T3E 

00 

0.91989 

0.19016 

-0.04384 

0.94036 

0.46882 

11.68 

-2.73 

1.15TE-01  -3.118E-02 

•*•••  N>NX 
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^UICK  TUPN  WITH  STRUT  PI 
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AM  =  1.000 

AX  :  : 

1.000  CSO  = 

2.0000E-01 

k 

y 

z 

u 

V 

n 

6. 00  00 1: 

00 

l.OOOOE 

03 

3.7500E 

00 

0.96208 

0.00485 

0.00359 

6.2000= 

00 

l.OOllE 

30 

3.7503E 

00 

0.97989 

0.00590 

0.00400 

s-Anoo*-' 

00 

l.a024E 

00 

3.75l6t 

00 

0.97728 

0.00727 

0.00448 

6.6000F 

00 

1.0041E 

00 

3.7526E 

00 

0.97415 

0.00909 

0.00504 

6.1000  = 

00 

1.0062F 

00 

3.  753  7E 

00 

0.97038 

0.01157 

0.00572 

6.9996  = 

00 

1.0090E 

00 

3. 7550= 

00 

0.96584 

0.01500 

0.00653 

7.1999= 

00 

1.0126E 

00 

3.75646 

00 

0.96042 

0.01982 

0.00751 

7.J990E 

00 

1.0175= 

00 

3.75816 

00 

0.95413 

0.02673 

0.00374 

7.5997  = 

00 

1.0241E 

00 

3. 7601= 

00 

0.94727 

0.03673 

0.01027 

7.7995= 

00 

1.0  334= 

00 

3.7625E 

00 

0.94099 

0.05113 

0.01222 

7.9990  = 

00 

1.0464E 

00 

3.  7654E 

00 

0.93829 

0.07116 

0.01471 

B.1982= 

00 

1.0641E 

00 

3. 76886 

00 

0.94545 

0.09601 

0.01781 

8.3969F 

00 

1.0864= 

00 

3.7729E 

00 

0.97115 

0.11822 

0.02145 

3.5959E 

00 

1.1102E 

00 

3. 77756 

00 

1.01574 

0.11988 

0.02524 

8.7943? 

00 

1.13026 

00 

3.78276 

00 

1.05326 

0.08786 

0.02878 

B.99  3SE 

00 

1.  1429E 

00 

3.7885= 

00 

1.05177 

0.04593 

0.03232 

9.1935E 

00 

1.1504E 

00 

3.7951E 

00 

1.02797 

0.03240 

0.03644 

9.39J3E 

00 

1.1577E 

00 

3.8026E 

00 

1.02438 

0.04281 

0.04040 

V.S9  29E 

00 

1.1659= 

00 

3.8105E 

00 

1.04705 

0.04254 

0.04198 

9.7927= 

00 

1.1718E 

00 

3.81836 

00 

1.06246 

0.01869 

0.03995 

9.9925F 

00 

1.1734= 

00 

3.82  54= 

00 

1.05041 

•0.00144 

0.03577 

1.0192E 

01 

1.1736E 

00 

3.8318E 

00 

1.03639 

0.00403 

0.03104 

1.0392= 

01 

1.1757E 

30 

3.e371E 

00 

1.04838 

0.01783 

0.02436 

1.0592E 

01 

1.1783  = 

00 

3.8407E 

00 

1.07747 

0.00974 

0.01320 

1.0792E 

01 

1.1771E 

00 

3.8418E 

00 

1.08728 

-0.02387 

-0.00181 

1.0992E 

01 

1.1701  = 

00 

3.8401E 

00 

1.06108 

-0.05132 

-0.01608 

1.1192= 

01 

1.16066 

00 

3.8361  = 

00 

1.02540 

-0.04813 

-0.  02540 

1.1392F 

01 

1.1534E 

00 

3.U307E 

00 

1.01274 

-0.02500 

-0.02938 

1.1591= 

01 

1.1498= 

00 

3.82496 

00 

1.02980 

-0.01169 

-0.03047 

1.1791F 

01 

1.14586 

00 

3.8190= 

00 

1.05023 

-0.03000 

.  -0.03096 

1.1991  = 

01 

1.1369E 

00 

3. £1316 

00 

1.03704 

-0.06376 

-0.03083 

1.2191= 

01 

1.1234E 

00 

3.80726 

00 

0.99495 

-0.07361 

-0.02885 

1.2390E 

01 

1.11086 

00 

3.8017E 

00 

0.96068 

-0.04969 

-0.02502 

1.2590  = 

01 

1.1046E 

00 

3.79706 

00 

0.95597 

-0.01023 

-0.02051 

1.2790= 

01 

1.10586 

00 

3.7931  = 

00 

0.98486 

0.02178 

-0.01654 

1.2990= 

01 

I.IIOIE 

00 

3.7901= 

DO 

1.03682 

0.02102 

-0.01399 

1.3190F 

01 

1.1098E 

00 

3.78756 

00 

1.07322 

-0.02458 

-0.01299 

1.3339E 

01 

1.1032E 

00 

3.78576 

00 

1.06565 

-0.06930 

-0.01266 

1.3489E 

01 

1.0913E 

00 

3.  78406 

00 

1.03315 

-0.09854 

-0.01207 

1.36J8E 

01 

1.0764E 

00 

3.7823E 

00 

0.99595 

-0.  10444' 

-0.01104 

1.3837E 

01 

1.05686 

00 

3.7802  = 

00 

0.96236 

•0.08848 

-0.00927 

1.4037= 

01 

1.0407E 

00 

3.77856 

00 

0.94960 

-0.06535 

-0.00760 

1.4236E 

01 

1.0290E 

00 

3.7770E 

00 

0.94886 

-0.04559 

-0.00632 

1.44  36E 

01 

1.0210E 

00 

3.77586 

00 

0.95289 

-0.03111 

-0.00545 

1.46  36  = 

01 

1.0155E 

00 

3.7747* 

00 

0.95803 

-0.02097 

-0.00493 

1.4e36E 

01 

1.0119E 

00 

3.7737= 

00 

0.96280 

-0.01387 

-0.00469 

1.50  36E 

01 

1.0096E 

00 

3.7727E 

00 

0.96675 

-0.00877 

-0.00466 

1.S236F 

01 

1.0081E 

00 

3. 7717= 

00 

0.96978 

-0.00495 

-0.00480 

1.5436  = 

01 

1.00  74E 

00 

3.77076 

00 

0.97197 

-0.00191 

-0.00505 

1.5636  = 

01 

1.0073E 

00 

3.  7696E 

00 

0.97342 

0.00067 

-0.00538 

Ivl 

M 

AIV.UI 

AlU.UI 

CP 

M-NI 

0.98209 

0.49061 

0.28 

0.21 

3.5496-02 

-9.3886-03 

0.97991 

0.48947 

0.34 

0.23 

3.9776-02 

-1. 0536-02 

0.97731 

0.48811 

0.43 

0.26 

4.4866-02 

-1.1 896- 02 

0.97420 

0.48648 

0.53 

0.30 

5.0936-02 

-1.3526-02 

0.97046 

0.48453 

0.68 

0.34 

5.8206-02 

-1.5476-02 

0.96598 

0.48218 

0.89 

0.39 

6.6896-02 

-1.7826-02 

0.96066 

0.47941 

1.18 

0.45 

7.7136-02 

-2.0596-02 

0.95454 

0.47621 

1.60 

0.52 

8.8856-02 

-2.3  796-02 

0.94803 

0.47282 

2.22 

0.62 

1.0126-01 

-2.7186-02 

0.94246 

0.46992 

3.11 

0.74 

1. 1186-01 

-3.0086-02 

0.94110 

0.4O921 

4.34 

0.90 

1.1436-01 

-3.0796-02 

0.95048 

0.47409 

5.80 

1.08 

9.6596-02 

-2.5916-02 

0.97855 

0.48876 

6.94 

1.27 

4.2446-02 

-1.1246-02 

1.02310 

0.51215 

6.73 

1.42 

-4.6736-02 

1.2156-02 

1.05731 

0.5  3022 

4.77 

1.57 

-1.1796-01 

3.0226-02 

1.05326 

0.52808 

2.50 

1.76 

-1.0946-01 

2.8086-02 

1.02912 

0.51532 

1.81 

2.03 

-5.9096-02 

1.5326-02 

1.02607 

0.51371 

2.39 

2.26 

-5. 2826-02 

1.3716-02 

1.04876 

0.52569 

2.33 

2.30 

-9.9896-02 

2.5696-02 

1.06337 

0.53343 

1.01 

2.15 

-1.3086-01 

3.3436-02 

1.05102 

0.52689 

-0.08 

1.95 

-1.0466-01 

2.6896-02 

1.03686 

0.51940 

0.22 

1.72 

-7.5076-02 

1.9406-02 

1.04882 

0.52572 

0.97 

1.33 

-1.0006-01 

2.5726-02 

1.07759 

0.54098 

0.52 

0.70 

-1.6126-01 

4.0986-02 

1.08754 

0.54627 

-1.26 

-0.10 

-1.8276-01 

4.6276-02 

1.06244 

0.53294 

-2.77 

-0.87 

-1.2886-01 

3.2946-02 

1.02684 

0.51412 

-2.69 

-1.42 

-5.4406-02 

1.4126-02 

1.01348 

0.50708 

-1.41 

-1.66 

-2.7146-02 

7. 0836-03 

1.03032 

0.51595 

-0.65 

-1.69 

-6.  1556-02 

1.5956-02 

1.05111 

0.52694 

-1.64 

-1.69 

-1.0486-01 

2.6946-02 

1.03946 

0.52078 

-3.52 

-1.70 

-8.0476-02 

2.0786-02 

0.99808 

0.49899 

-4.23 

-1.66 

3.8296-03 

-1. 0066-03 

0.96229 

0.48026 

-2.96 

-1.49 

7. 4006-02 

-1.9746-02 

0.95625 

0.47710 

-0.61 

-1.23 

8.5596-02 

-2.2906-02 

0.98524 

0.49226 

1.27 

-0.96 

2.9306-02 

-7.1406-03 

1.03712 

0.51955 

1.16 

-0.77 

-7.5636-02 

1.9556-02 

1.07358 

0.53885 

-1.31 

-0.69 

-1.5266-01 

3.8856-02 

1.06798 

0.53588 

-3.72 

-0.68 

-1.4066-01 

3.5886-02 

1.03791 

0.51996 

-5.45 

-0.67 

-7.7266-02 

1.9966-02 

1.00147 

0.50077 

-5.99 

-0.63 

-2.9416-03 

7.7166-04 

0.96646 

0.48244 

-5.25 

-0.55 

6.5956-02 

-1.7566-02 

0.95187 

0.4  7482 

-3.94 

-0.46 

9.3946-02 

-2.5186-02 

0.94998 

0.47383 

-2.75 

-0.38 

9.7546-02 

-2.6176-02 

0.95341 

0.47563 

-1.87 

-0.33 

9.1006-02 

-2.4376-02 

0.95827 

0.47616 

-1.25 

-0.29 

8.1726-02 

-2.1846-02 

0.96292 

0.48058 

-0.83 

-0.28 

7.2796-02 

-1.9426-02 

0.96680 

0.48261 

-0.52 

-0.28 

6.S30E-02 

-1. 7396-02 

0.96981 

0.48418 

-0.29 

-0.28 

5.9486-02 

-1.5826-02 

0.97199 

0.48532 

-0.11 

-0.30 

5.5246-02 

-1.4686-02 

0.97343 

0.48608 

0.04 

-0.32 

5.2436-02 

-1. 3926-02 

AEDC-TR-7E-75 


Table  B-5.  Continued 


CUICK  TURN 

•ilTH  STRUT  «1 

N-.5 

streamline 

2  PAGE 

2 

AN  =  1.000 

AX  a  3.000  DSO  > 

2.0000G-01 

X 

V 

Z 

U  V 

U 

IVI 

n 

AIV.UI 

1.5B36E  01 

1.00T7E  00 

3.76BSE  00 

0.97423  0.00307 

-0.0057B 

0.97425 

0.48651 

0.18 

1.60  36E  01 

1.0086E  00 

3.7673F  00 

0.97448  0.00548 

-0.00623 

0.97452 

0.4866S 

0.32 

AIH.UI  CP  M-NI 

-0.34  S.0B4E-02  -1.349E-a2 

-0.37  5.032E-02  -1.33SE-02 


x>xx 


M»  .5 


O 

OJ 


QUICK  TURN  WITH  STRUT  tl 
STREAMLINE  3  PAGE 


Table  B-5.  Continued 


AN  -  1.000  AX  -  3.000  OSO  =  2.0000E-01 


X 

V 

z 

U 

V 

M 

IVI 

M 

AIV.UI 

A(U,UI 

CP 

H-HI 

6. 0000 E 

00 

1.5000E 

00 

3.7500E 

00 

0.98457 

0.00625 

0.00339 

0.98460 

0.49192 

0.36 

0.20 

3.056E-02  -8.076E-03 

6.2000t 

00 

1.5014E 

00 

3.7507E 

00 

0.98307 

0.00743 

0.00376 

0.98311 

0.49114 

0.43 

0.22 

3.350E-C2  -8.8588-03 

6.4000E 

00 

1.5031E 

00 

3.7515E 

00 

0.98139 

0.00891 

0.00417 

0.98144 

0.49027 

0.52 

0.24 

3.67EE-C2  -9.732E-03 

6.6000E 

00 

1.5051E 

oo 

3.7S24F 

00 

0.97952 

0.01078 

0.00466 

0.97959 

0.48930 

0.63 

0.27 

4.040E-02  -l.OTOE-02 

6.8000E 

00 

1.S07SE 

00 

3.7534E 

00 

0.97750 

0.01315 

0.00522 

0.97760 

0.48826 

0.77 

0.31 

4.430E-C2  -1.174E-02 

6.9999E 

00 

1.3105E 

00 

3.7546E 

00 

0.97537 

0.01619 

0.00589 

0.97552 

0.48717 

0.95 

0.35 

4.836E-02  -1.283E-02 

7.1999E 

00 

1.5142E 

00 

3.75S9E 

00 

0.97328 

0.02006 

0.00667 

0.97351 

0.48612 

1.18 

0.39 

S.228E-02  -1.3881-02 

7.3998E 

00 

1.51S9E 

00 

3.7573E 

00 

0.97151 

0.02496 

0.00759 

0.97186 

0.48526 

1.47 

0.45 

S.549E-C2  -1.474b-02 

7.5997E 

00 

1.5246E 

00 

3.7590E 

00 

0.97053 

0.03101 

0.00868 

0.97107 

0.48484 

1.83 

0.51 

5.703E-C2  -1.516E-02 

7.7996E 

00 

1.S317E 

00 

3.7609E 

00 

0.97111 

0.03814 

0.00998 

0.97191 

0.48528 

2.25 

0.59 

5.539E-02  -1.472E-02 

7.999AE 

00 

1.5404E 

00 

3.7631E 

00 

0.97426 

0.04583 

0.01150 

0.97540 

0.48711 

2.69 

0.68 

4.859E-C2  -1.289E-02 

8.1991E 

00 

1.5504E 

00 

3.76S7E 

00 

0.98089 

0.05276 

0.01326 

0.98240 

0.49077 

3.08 

0.77 

3.489E-02  -9.228E-03 

8.398aE 

00 

1.5615E 

00 

3.7685E 

00 

0.99101 

0.05685 

0.01523 

0.99275 

0.49620 

3.28 

0.88 

1.444E-02  -3.802E-03 

8.'5984E 

00 

1.5729E 

00 

3.7718E 

00 

1.00265 

0.05613 

0.01736 

1.00437 

0.50229 

3.20 

0.99 

-E.759E-C3 

2.2958-03 

8.7981E 

00 

1.3834E 

00 

3.7755E 

00 

1.01232 

0.05075 

0.01956 

1.01378 

0.50724 

2.87 

1.11 

-2.775E-02 

7.2418-03 

8.9979E 

00 

1.S927E 

00 

3.7795e 

00 

1.01785 

0.04366 

0.02172 

1.01901 

0.51000 

2.46 

1.22 

-3.8386-02 

9.9958-03 

9.1977E 

00 

1.6007E 

00 

3.7840E 

00 

1.02079 

0.03803 

0.02369 

1.02178 

0.51145 

2.13 

1.33 

-4.402E-02 

1.1458-02 

9.3975E 

00 

1.6078E 

00 

3.78878 

00 

1.02437 

0.03396 

0.02516 

1.02524 

0.51328 

1.90 

1.41 

-5.112E-02 

1.3288-02 

9.5973E 

00 

1.6139E 

00 

3.7937E 

00 

1.02938 

0.02930 

0.02577 

1.03012 

0.51585 

1.63 

1.43 

-6.115E-02 

1.5858-02 

9.79  72E 

00 

l.frl90E 

00 

3.7986E 

00 

1.03390 

0.02320 

0.02523 

1.03447 

0.51814 

1.29 

1.40 

-7.013E-C2 

1.814E-02 

9.9971E 

00 

1.6229E 

00 

3.8033E 

00 

1.03679 

0.01712 

0.02346 

1.03719 

0.51958 

0.95 

1.30 

-7.577E-02 

1.9588-02 

1.0197E 

01 

1.62S7E 

00 

3.8076E 

00 

1.03944 

0.01214 

0.02046 

1.03972 

0.52091 

0.67 

1.13 

-8.101E-02 

2.0918-02 

1.0397E 

01 

1.6275E 

00 

3.8111E 

00 

1.04327 

0.00684 

0.01628 

1.04342 

0.52287 

0.38 

0.89 

-8.872E-C2 

2.2878-02 

1.0597E 

01 

1.6281E 

00 

3.  ai37E 

00 

1.04678 

-0.00082 

0.01106 

1.04684 

0.52468 

-0.05 

0.61 

-9.58EE-02 

2.4688-02 

1.0797E 

01 

i.bariE 

00 

3.8153E 

00 

1.04674 

-0.01040 

0.00523 

1.04681 

0.52466 

-0.57 

0.29 

-9.581E-C2 

2.466L-02 

1.0997E 

01 

1.6243E 

00 

3.8157E 

00 

1.04195 

-0.01876 

-0.00048 

1.04211 

0.52218 

-1.03 

-0.03 

-B.6COE-02 

2.2188-02 

1.1197E 

01 

1.6202E 

00 

3.S1S1E 

00 

1.03488 

-0.02338 

-0.00538 

1.03515 

0.51851 

-1.29 

-0.30 

-7.154E-02 

1.8518-02 

1.1397E 

01 

1.6155E 

00 

3.B137E 

00 

1.02910 

-0.02491 

-0.00909 

1.02944 

0.51549 

-1.39 

-0.51 

-5.975E-C2 

1.5498-02 

1.1597E 

01 

1.6105E 

00 

3.ail7E 

00 

1.02561 

-0.02627 

-0.01159 

1.02601 

0.51368 

-1.47 

-0.65 

-5.27CE-02 

1.3688-02 

1.1797E 

01 

1.6051E 

00 

3.8093E 

00 

1.02209 

-0.02924 

-0.01305 

1.02259 

0.51188 

-1.64 

-0.73 

-4.568b-02 

1.1888-02 

1.1997E 

01 

1.5991E 

00 

3.B067E 

00 

1.01585 

-0.03232 

-0.01361 

1.01646 

0.50865 

-1.82 

-0.77 

-3.31EE-02 

8.6508-03 

1.2196E 

01 

1.5927E 

00 

3.8040E 

00 

1.00751 

-0.03229 

-0.01341 

1.00812 

0.50426 

-1.84 

-0.76 

-1.630E-02 

4.2648-03 

1.2396E 

01 

1.5867E 

00 

3.80146 

00 

1.00081 

-0.02794 

-0.01262 

1.00128 

0.50067 

-1.60 

-0.72 

-2.S51E-C3 

6.6948-04 

1.2996E 

01 

1.5818E 

00 

3.7990E 

00 

0.99926 

-0.02150 

-0.01150 

0.99956 

0.49977 

-1.23 

-0.66 

8.8858-04  -2.332E-04 

1.2796E 

01 

1.5779E 

00 

3.7969E 

00 

1.00337 

-0.01722 

-0.01030 

1.00357 

0.50188 

-0.98 

-0.59 

-7.1558-03 

1.8768-03 

1.2996E 

01 

1.5743E 

00 

3.7949F 

00 

1.00990 

-0.01861 

-0.00922 

1.01011 

0.50531 

-1.06 

-0.52 

-2.0328-02 

5.3118-03 

1.3196E 

01 

1.S700E 

00 

3.7932E 

00 

1.01340 

-0.02573 

-0.00833 

1.01376 

0.50723 

-1.45 

-0.47 

-2.7708-02 

7.2308-03 

1.3396E 

01 

1.S640E 

00 

3.7916E 

00 

1.01021 

-0.03454 

-0.00756 

1.01082 

0.50569 

-1.96 

-0.43 

-2.1768-02 

5.6878-03 

1.3S96E 

01 

1.5566E 

00 

3.7902E 

00 

1.00143 

-C.  04005 

-0.00682 

1.00225 

0.50118 

-2.29 

-0.39 

-4.5068-03 

1.1828-03 

1.3796E 

01 

1.5486E 

00 

3.7889E 

00 

0.99126 

-0.04015 

-0.00609 

0.99209 

0.49585 

-2.32 

-0.35 

1.5768-02  -4.1508-03 

1.3996E 

01 

1.S409E 

00 

3.7877E 

00 

0.98314 

-0.03600 

-0.00543 

0.98381 

0.49151 

-2.10 

-0.32 

3.2118-02  -8.4888-03 

1.4195E 

01 

1.5341E 

00 

3.78676 

00 

0.97819 

-0.02983 

-0.00488 

0.97865 

0.48881 

-1.75 

-0.29 

4.2248-02  -1.1198-02 

1.439SE 

01 

1.528TE 

00 

3.78576 

00 

0.97595 

-0.02337 

-0.00449 

0.97624 

0.48755 

-1.37 

-0.26 

4.6958-02  -1.2458-02 

1.4595E 

01 

1.5245E 

00 

3.7848E 

00 

0.97551 

-0.01751 

-0.00426 

0.97567 

0.48725 

-1.03 

-0.25 

4.8C68-C2  -1.2758-02 

1.4795E 

01 

1.5214E 

00 

3.7840E 

00 

0.97604 

-0.01250 

-0.00419 

0.97613 

0.48749 

-0.73 

-0.25 

4.7168-02  -1.2518-02 

1.4995E 

01 

1.5193E 

00 

3.78316 

00 

0.97700 

-0.00830 

-0.00425 

0.97705 

0.48797 

-0.49 

-0.25 

4.5388-02  -1.2038-02 

1.5195E 

01 

1.5180E 

00 

3.78226 

00 

0.97806 

-0.00478 

-0.00442 

0.97808 

0.48851 

-0.28 

-0.26 

4.3368-02  -1.1498-02 

1.539SE 

01 

1.5173E 

00 

3.7813E 

00 

0.97903 

-0.00173 

-0.00468 

0.97904 

0.48901 

-0.10 

-0.27 

4.1488-02  -1.0998-02 

1.5395E 

01 

1.5172E 

00 

3.78036 

00 

0.97985 

0.00100 

-0.00501 

0.97986 

0.48944 

0.06 

-0.29 

3.9878-02  -1.0568-02 

1.5T95E 

01 

1.S177E 

00 

3.77926 

00 

0.98050 

0.00358 

-0.00539 

0.98052 

0.48979 

0.21 

-0.31 

3.89CE-C2  -1.0218-02 

AEDC-TR-75-75 


Table 

B-5.  Concluded 

QUICK  TURN  1 
STREANLINE 
AN  -  1.000 

X 

WITH  STRUT  •! 
3  PAGE 

AX  -  3.000 
V 

Nc.5 

2 

1  DSO  ■ 

Z 

2.0000E-01 

U  V 

M 

IVI 

N 

AIViUI 

AIH.UI 

CP  M-NI 

1.S995E  01 

1.51B7E  OO 

3.TT81E  00 

0.98102  O.OOAIS 

-0.00581 

0.98105 

0.49007 

0.36 

-0.34 

3.7S3E-C2  -9.932E-03 

1.6195E  01 

1.5202E  00 

3.T768E  00 

0.98146  0.00883 

-0.00627 

0.98152 

0.49031 

0.52 

-0.37 

3.661E-02  -9.6B7E-03 

*****  x>xx  ••••• 


JOB  CONPLETEO 


AEDC-TR-76-75 


f.OO  -4.00  -2.00  0.00  2.00  >1.00  6.00  B.OO  10.00 


a.  Side  view 

Figure  B-3.  Flow  streamlines  and  velocity  vectors. 
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NOMENCLATURE 

A 

bi  Unit  normal  vector  at  i  control  point 

M  Mach  number 

Free-stream  Mach  number 
N  Number  of  singularities 

r^  Position  vector 

u  x-component  of  velocity 

Velocity  induced  by  jt**  singularity  when  its  strength  is  1 
Velocity  at  i‘*'  control  point,  induced  by  jth  singularity  when  its  strength  is  1 
V  y-component  of  velocity 

^  Velocity 

^  Velocity  at  the  i‘**  control  point 

^  Free-stream  velocity 

w  z-component  of  velocity 

X,  y,  z  Cartesian  coordinates 

|3  Stretching  factor  for  Goethert's  Rule,  y/l  -  MJ 

7j  Strength  of  j***  singularity 
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